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هذا الكتاب يعتبر دورة تعريفية بتقنية 1٣۹‏ نشرح فيها التقنيات الجديدة في فيجول ستوديو 2008 والمتعلقة بهذه التقنية مع شرح لصيغة 
كا الأستعافمات باستذاسها رذلك عبر سز ودا اة مغ الكو من الأمقة اللرضيية 


ترقية مشاريع 2005 لتعمل على 2008 تم إضافة دعم ومآ لتلك المشاريع 30 
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مقدمة 

تضيف ”ا إمكانيات استعلامية بإمكانيات بسيطة وقوية لفيجول بايزيك عندما تتعامل مع العديد من أنواع البيانات المختلفة 
فبالإضافة إلى إرسال الاستعلام إلى قاعدة بيانات كي تتم معالجته أو العمل مع صيغة مختلفة للاستعلام لكل نوع من أنواع البيانات التي تقوم 
بالبحث عنها. تقدم ۹٠ا‏ الاستعلامات كجزء من لغة فيجول بايزيك مستخدمة صيغة موحدة بغض النظر عن نوع البيانات الذي تستخدمه. 
وهي تمكنك من الاستعلام عن البيانات من قاعدة بيانات مم5 ا50 أو ا"× أو المجموعات والمصفوفات في الذاكرة أو tمم.‏ ۸00 
ئةtهط‏ الأمر الذي يجعلها قادرة على الاستعلام من أي قاعدة بيانات يمكن ربطها مع ا٥5هه0‏ أو أي مصدر بيانات محلي أو بعيد يدعم 
٩اا‏ حيث يمكنك عمل ذلك كله باستخدام عناصر لغة فيجول بايزيك الشائعة لأن استعلاماتك أصبحت مكتوبة بلغة فيجول بايزيك ونتائج 
الاستعلام تعاد كأغراض أنواع بيانات قوية داعمة مء م؟||اام†م| مما يجعل كتابتك للكود أسرع واكتشافك للأخطاء في الاستعلامات عند 
ترجمة المشروع بدلا من وقت التنفيذ كما أن استعلامات ٠ا‏ يمكن أن تكون مصدرا لاستعلامات إضافية لمزيد من الدقة في البحث. كما 
يمكن ربطها مع التحكمات ممكنا المستخدم من استعراض وتعديل نتائج استعلامك بسهولة. 


وهذا مثال عن استعلام بسيط يعيد قائمة شركات الزبائن الموجودين في إيطاليا 


Dim itaCus = From cus In NwDs.Customers _ 
WHEEEê GUSSCOUNEEY = IEA" 
Select cus.ContactName, cus.CompanyName 


دعنا لا نقلق الآن بخصوص صيغة الاستعلام على كل حال إن كنت متمكنا من كتابة استعلامات سيكول سيرفر لن تجد صعوبة في فهم 
صيغتها بما أن الصيغة مشابهة مع بعض الاختلافات طبعا والاستعلام السابق يماثل استعلام سيكول سيرفر التالي 


SELECT COMPANYNAME FROM CUSTOMERS WHERE COUNTRY='Italy' 
كما يمكن أن يكون استعلام »٣ا أكثر تعقيد فالكود التالي يعيد قائمة بالزبائن ويعيد تجميعهم حسب الموقع‎ 


Dim customers As List (Of Customer) = GetCustomerList () 
Dim customersByCountry = From cust In customers _ 
OEdEF BY CUSECOUNEEY, CUSEECIEY | 
Group By CountryName = cust.Country _ 
Into RegionalCustomers = Group, Count () 
Order By CountryName 
For Each country In customersByCountry 
Console.WriteLine (country.CountryName & _ 
N‘ (FT & COUNEEV:COURE & TT € NBCELÊ) 
For Each customer In country.RegionalCustomers 
Console.WriteLine (vbTab & customer.CompanyName & _ 
" (" & customer.City & ")") 


Next 
Next 
حيث يمكننا استخدام استعلام "ا في برنامجنا بعدة أشكال فالمثال الأول مثلا يمكننا عرض نتيجته في لأ 6ه مباشرة‎ 


Me.DataGridViewl.DataSource = itaCus.ToList 


أو يمكننا إدخاله ضمن حلقة ...۴۵۲ مثلا واستخدام النتائج ففي المثال التالي نستخدم الاستعلام الوارد بالمثال الأول لإظهار قائمة 
الشركات في ×80 ءا 


Me.ListBox1.Items.Clear () 
FOE Eaêl CiüSÊ Tı itacus 
Me.ListBox1.Items.Add (cust.CompanyName) 


Next 


LINQ Providers - Linq ٽIدوزjم‎ 


یقوم مزود ٣٩‏ أا بتنظیم استعلامات واا في فيجول بايزيك بحسب مصدر البيانات الذي تستخدمه فعندما تکتب استعلام ٣اا‏ يأخذ المزود 
ذلك الاستعلام ويترجمه إلى أوامر يستطيع مصدر البيانات تنفيذها ويقوم أيضا بتحويل البيانات من الأغراض المصدرية ليشكل نتائج 
الاستعلام وأخيرا يقوم بتحويل الأغراض إلى بيانات عندما ترسل التحديثات للمصدر. ويضم فيجول بايزيك مزودات وا التالية: 


كئاObjec Linq t0‏ يمكنك هذا المزود من الاستعلام في المجموعات والمصفوفات في الذاكرة إذا كانت غرضك يدعم الواجهة 
/Enumerable‏ أو الواجھة (۲)عاطاaإمصuمnع|‏ بحيث يمكنك المزود من الاستعلام عنها ويمكنك تمکین هذا المزود باستیراد 
المجال "١‏ أا."عءر؟ والذي يكون مستوردا بشكل افتراضي في مشاريع فيجول بايزيك 

ا t0‏ واا يمكنك هذا المزود من الاستعلام من قواعد بيانات 5۲۷٠١‏ 5۵1 والتحديث إليها ويجعل من السهل ربط أغراض 
التطبيق مع الجداول والأغراض في قواعد البيانات. ويسهل فيجول بايزيك العمل مع 5Q1‏ ه† Object Relational pيدقتب Linq‏ 
esignerط‏ والذي يمكنك من إنشاء اعله( 1ءء زط0 في التطبيق يرتبط مع الأغراض في قاعدة البيانات ويقدم ال 0/R‏ 
Designer‏ إمكانية التعامل مع الإجراءات والوظائف المخزنة وإجراءات الغرض ا1×ع ٤)٥١‏ هه الذي يدير الاتصال مع قاعدة 
البيانات ويخزن الحالة من أجل تصادم البيانات التفاؤلي 

اm×‏ هt‏ واا يمكنك من الاستعلام من ا"× والتعديل عليها بحيث يمكنك تعديل محتويات |" × الموجودة في الذاكرة أو يمكنك 
تحمیل ملف × أو حفظه 

Linq t0 Dataset‏ يمكنك من الاستعلام من كأعءهاة0 tعم.‏ ۸50 والتعديل عليها وإضافة قوة وا للتطبيقات التي تستخدم 
t6‏ تسهل وتوسع إمكانيات الاستعلام والتجميع والتحديث في ال عءه†ه في تطبيقك 


بنية استعلامات Linq‏ 


يشار عادة إلى استعلام هاا بتعبير الاستعلام وهو يتألف من توليفة من تراكيب الاستعلام التي تحدد مصدر البيانات ومتغيرات 
التكرار الخاصة بالاستعلام كما يمكنه أن يتضمن تعليمات من أجل الفرز أو التصفية أو التجميع أو الضم أو الحساب ليتم تطبيقها على 
البيانات المصدرية وصيغتها تكون مشابهة لصيغة ال 1ا50 ولهذا ستجد أن معظم الصيغة مألوفة. 

يبدأ الاستعلام بقسم From‏ الذي يحدد مصدر البيانات والمتغيرات التي تشير إلى كل عنصر من البيانات المصدرية بشكل مستقل وهي تدعی 
بمتغيرات المجال أو متغيرات التكرار وقسم ۴0۳ مطلوب من أجل الاستعلام إلا في استعلامات التجميع Aggregate‏ حیث يكون قسىم 
۴٥٣‏ فيها اختياري وبعد تعريف مجال ومصدر الاستعلام في قسم ۴٣٠٣١‏ أو في قسم مهعم عع يمكنك تضمين أي تركيب من أقسام 
الاستعلام. فمثلا الاستعلا م التالي یحدد مصدر مجموعة من بیانات الزبائن بالمتغیر ی٣ع٥ہہ†وںC‏ ومتغیر التکرار tخوںع‏ 


DIN SUEEVRESULES 2 FEOM CUSE. IR. CUSEOMEES 
Select cust.CompanyName 


وهذا المثال يشكل استعلام مقبول بذات نفسه ومع ذلك يصبح الاستعلام أقوى عندما تضيف أقسام استعلام أخرى لتحديد النتائج فمثلا يمكنك 
إضافة قسم ۷٠۲٠‏ لتصفية النتائج إلى قيمة أو أكثر وتكون تعابير الاستعلام عبارة عن سطر واحد من الكود بحيث يمكنك إضافة أقسام 
استعلام جديدة لنهاية الاستعلام كما يمكنك فصل الاستعلام إلى عدة أسطر لتحسين قراءة كودك باستخدام المحرف _ ويمتل الكود التالي 
استعلاما یستخدم قıم Where‏ 


Dim GUeFyREeSULES = FEO CUS TIM OUSEOMEES 
Where cust.Country = "USA" 


ویمٽل قسم select‏ قسم قوي آخر في الاستعلام حيث يمكنك من إعادة الحقول المختارة فقط من مصدر البيانات وتعيد استعلامات Linq‏ 
مجموعة تعدادية من الأغراض القوية النوع كما يمكنها إعادة أنواع مجهولة أو أنواع معروفة. ويمكن استخدام قسم اء إعء للعودة بحقل 
واحد فقط من مصدر البيانات وعندما تفعل هذا يكون نوع المجموعة المعادة هو نوع بيانات ذلك الحقل. وعندما يعيد قسم امام مجموعة 
من الحقول من مصدر البيانات تكون المجموعة المعادة من النوع المجهول ويمكنك مطابقة الحقول المعادة من الاستعلام مع حقول من نوع 
معروف محدد ويظهر الكود التالي تعبير استعلام يعيد مجموعة نوعها مجهول تضم أرقاما مع بيانات من الحقل المحدد من مصدر البيانات 


Dit GUEEYRESULES = EEO CUS IM CUSEOMEES. 
WhEeEê: EUST:COUNEEY = ™OSA™ | 
Select cust.CompanyName, cust.Country 


يمكن استخدام استعلامات 1٠‏ لدمج عدة مصادر من البيانات في نتيجة واحدة حيث يمكن عمل هذا باستخدام قسم ۴۴٠۳٣١‏ واحد أو أكثر أو 
باستخدام اقسام ەل أو ۸ال مںما ویظھر الکود التالي تعبیر استعلام یضم بیانات ٣٤۲‏ ٥ں‏ و ٣‏ ما0 ویعید مجموعة من نوع 
مجهول تحتوي بيانات Order s Customer ja‏ 


Din GUEFYRESULES = FEO OUSE. EM CUSEOMEFSy OE HI OEIEES | 
WEEE €CUSESCUSEOMEETD =A OEI: CUS EOMEEED _ 
Select cust, ord 


يمكنك استخدام قسم اهل مده لبناء استعلامات شجرية تحتوي مجموعة من اُغراض ٣٤١‏ ٥†یںC‏ وکل غرض ٣٤١‏ ٥اءں‏ يمتلك 
خاصية تحتوي مجموعة تتضمن جميع أغراض ٥٠١٠۴١‏ لذلك الزبون. ويظهر المثال التالي تعبير استعلام يدمج بيانات ۴۲" 0ں و 
Order‏ كنتيجة شجرية ويعيد مجموعة من نوع مجهول ويعيد الاستعلام نوعا يتضمن الخاصية CustomerOrders‏ تحتوي على مجموعة 

تحتوي على مجموعة من بيانات ۲ع ل0۲ وبيانات ٥١‏ ۳٥ں‏ وتتضمن أيضا الخاصية اه†ه ٠۲١‏ ل0۲ تحتوي على مجموع إجمالي الطلبات 
لذلك الزبون 


Dit SUEEYRESULES = FEO CUS IM CUSEOmMEES. 
GEOUD OID OEM. TA. SEIEES. OR 
CUSE.CUSEOMEEFID Equals OFQA:CUSEOMEEID _ 
Into CustomerOrders = GrEOUP, _ 
OEFQEETOEAL = SUM(OEA:TOEAL) 
Select cust.CompanyName, cust.CustomerID, 
CustomerOrders, OrderTotal 


معاملۍIاٽ‏ اصتعږںp Visual Basic LINQ Query Operators - Linq‏ 
تتضمن الفئات في المجال in۹ا. System‏ والمجالات التي تدعم ,ا طرائق يمكنك استدعاؤها لإنشاء الاستعلامات وتوليها 
بحسب حاجة التطبيق ويتضمن فيجول بايزيك كلمات مفتاحية لأقسام الاستعلام الشائعة 


From Clause 
ویحدد قسم "هم۴ المجموعة المصدر أو متغير التكرار للاستعلام‎ Aggregate أو‎ ۴٣٥۳ یجب أن يبدأ الاستعلام بقسم‎ 


' Returns the company name for all customers for whom 
'" Statê is edüal to "WA". 
Dim. mamés. = PFEFOM CUSE TE CUSEOMEES | 

Where’ USE STCEte =. WA 

Select cust.CompanyName 


Select Clause 


' Returns the company name and ID value for each 
' customer as a collection of a new anonymous type. 
Dim eUSEoOmeELESE = FEO CUS IN CUStomMeES 

Select cust.CompanyName, cust.ID 


و إن لم یکن قسم Select‏ موجودا في الاستعلام فتتألف متغيرات التكرار للاستعلام من تلك المحددة في قسم From‏ أو Aggregate‏ 


Where Clause 
اختياري ويحدد شرط التصفية للاستعلام‎ 


' Returns all product names for which the Category of 
' the product is "Beverages". 
DIM, RAMEeS = FEO OEONUEGE IM PEOMUEBS _ 
Where BEOQdUEEACAEEGOEyY = "Beverages" _ 
Select product.Name 


Order By Clause 
اختياري ويحدد ترتيب الفرز للأعمدة في الاستعلام‎ 


'" REtUEFNS.@ LISE Of books SoOEtel GY pElcCé 1f 

' ascending order. 

DIM EIECLESASEENAINGEETGE = FEO BIR BOOKS | 
Order By b.Price 


Join Clause 
اختياري ويدمج مجموعتين ضمن مجموعة واحدة‎ 


DIM . TAEESE FEO 1 IA BSDESPONLEES IREEEESERAEGS. 
Join d In DsDespOsits.: Deposits _ 
OR La lREEEESEID EaUals: Qi IMESEESEID 
Select i.InterestID, i.InterestRate, i.DepositPreiod 


Group by Clause 
اختياري ويقوم بتجميع عناصر نتيجة الاستعلام ويمكن استعماله لتطبيق إجراءات تجميع لكل مجموعة‎ 


' Returns a list of orders grouped by the order date 
' and sorted in ascending order by the order date. 
Dit OFJEES. = FEOM OFdEE IRA. OFdEELESE _ 

OEE BY GEIEEOEUEEDAE@E: _ 

Group By OrderDate = order.OrderDat 

Into OrdersByDate = Group 


Group Join Clause 
اختياري ويجمع مجموعتين ضمن مجموعة شجرية واحدة‎ 
' Returns a combined collection of customers and 
customer orders. 
Diir :eUSEOMEELLSE =. FEO CUSE IM CUSEOMeES _ 

GEOUp . JOiR OFQ IA GEdeEFS ON _ 
CUSTE.CUStomerID Equals oOrd:CustomerlD _ 
INEO CUSEOMEEFOFIEeES. = GEOUBy,_ 
OFIEEToOTAE =. SUM(OEA ToL) 
Select cust.CompanyName, cust.CustomerlID, 
CustomerOrders, OrderTotal 


Aggregate Clause 
يطبق واحدة أو أكثر من وظائف التجميع على المجموعة‎ Aggregate puãs Aggregate أو تم‎ ۴٣٥۳ یجب بدء الاستعلام دوما إما بقسم‎ 
لحساب مجموع جميع العناصر المعادة بالاستعلام‎ Aggregate فمثلا یمکن استخدام قسم‎ 


'" RECUENS. Che: SUM. OF ALL GEQEE COALS: 
Dit OFQEFTOtEAL =.AGIEEIATLe Ode IF OEFQEEFS | 
INLS SUM(OEOEE. TOEAL) 


كما يمكنك استخدام قسم Aggregate‏ لتعدیل الاستعلام فمثلا یمکن استخدام قسم regateععA‏ لإجراء عملية حسابية على مجموعة استعلام 

' Returns the customer company name and largest 

order total for each customer. 

Dit euUStEomeE£Max = From êust In GuUSstomefs _ 
AGGEFEGAEE OFQEF IN. CEMSTOEIEES | 
IHEO.MaxOrdek = Max (OFdeF.TOEAL, _ 
Select cust.CompanyName, MaxOrder 


Let Clause 
اختياري ويقوم بحساب قيمة ويضعها في متغير جديد‎ 


'" REUEAS  @ LLSE Of products WItR a Calculation of 
a tên Percent. dLSCOUNE. 
DIL QLSOOUREEIPEOIUGES 3 FEO BEON IM. BEOQUGCES: | 

LEE. DISCOUNT, = BEOQA.UREEBETES * Ol _ 

Wiere DILSGOURE. 2= SOs | 

Select. pFOd:PEOduUCENamey, PEoOd. UNTLEPEIGé, DBDISCOUNE 


Distinct Clause 
اختياري وهو يضبط القيم المعادة من الاستعلام بحيث لا يجلب قيما مكررة‎ 
' Returns a list of cities with no duplicate entries. 
Dim Cities = FEOM. LEON. Hi CUStEomers: | 
SElECE CUSEOMEE. CIEY 
DISELROE 


Skip Clause 


i 


' Returns a list of customers. The first 10 customers 


are ignored and the remaining customers are 

" EFELOENEed: 

Dit CUSEOMEELISE. = FEO. CUSE TIM CUSEOMEES, | 
Skip 10 


Skip While Clause 
'" Retütns a List of cûstomers. The qiüuery ignores all 
customers until the first customer for whom 
IsSubscriber returns false. That customer and all 
remaining customers are returned. 
Diir  CUSEOMEELISE. = FEO. CUSE TIM CUSEOMEES, 
Skip While IsSubscriber (cust) 


Take Clause 
اختياري ویعید عددا من العناصر المتجاورة في بداية المجموعة‎ 


'" REéGUENS EhE EIECSE. 10 CUSEOREES: 
Dit sCUSEOomMe ELISE = FEO CUS IR eUStomers, _ 


Take 10 


Take While Clause 
اختياري يقوم بتضمين عناصر المجموعة طالما قيمة الشرط ع ں٣۲ ويتجاهل بقية العناصر‎ 


' Returns a list of customers. The query returns 

' customers until the first customer for whom 

' HasOrders returns false. That customer and all 

' remaining customers are ignored. 

DIM CUSEOMEESWLENOEIEES = From OUSE In ‘CEUs EOMEeES _ 
OEJEE BY EUST;OEQEES. COUNE Descending _ 
Take While HasOrders (cust) 


كما يمكنك استخدام خصائص إضافية لاستعلام ۹اا باستدعاء عناصر المجموعات والأنواع المستعلم عنها التي يوفرها "أا حيث يمكنك 
استخدام هذه الإمكانيات الإضافية باستدعاء معامل استعلام على نتيجة الاستعلام فمثلا الكود التالي يستخدم الطريقة Union‏ لدمج ناتج 
استعلامین في نتيجة استعلام واحدة ويستخدم الطريقة ToList(TSource)‏ لإعادة ناتج الاستعلام كقائمة 


Public Function GetAllCustomers () As List (Of Customer) 


Dim customersl1 = From cust In domesticCustomers 
Dim customers2 = From cust In internationalCustomers 
Dim customerList = customers1.Union (customers2) 


Return customerList.ToList () 
ENQA EFüfetion 


مواضيع متعلقة بتقنية وم11 لابد من الإطلاع عليها 


Local Type Inference gوill الاإستدلال المحلي على‎ 


يستخدم المترجم في فيجول بايزيك 8 الاستدلال على النوع عء١ |۴٠٣٠‏ عمرآ لتحديد نوع المتغيرات المحلية التي تم 
التصريح عنها بدون استخدام فقرة ك۸ في تعبير التصريح حيث يستدل المترجم على نوع المتغير من نوع التعبير الذي يضبط قيمة ذلك 
المتغير مما يوفر إمكانية تعريف المغيرات بدون تحديد نوعها كما في المثال التالي 


Public Sub inferenceExample () 


" USL OROLLETE EVDIL 
Dim numl As Integer = 3 


' Using local type inference. 
Dim num2 = 3 


End Sub 


ولا يمكن استخدام الاستدلال على النوع عند تعريف الحقول في الفئة ولاعا۴ وها فإن كان 2 دم في المثال السابق حقلا في فئة بدلا عن 
کونه متغیرا محلیا فسوف یولد التصریح خطاً إذا کان Option Stricا 0n‏ وسوف یصنف ۸2ں" علی آنه غرض ٥زط0‏ إن کان 
Strict ۴۴‏ tionم‏ وبشکل مشابه فنوع المتغیرات الساكنة sعاط‏ ھ۷2 Stic‏ لا یمکن الاستدلال علیھا إن کان Option Strict On‏ وإنù‏ 
كان 0۴۴ Option Strict‏ فنوع المتغير الساكن سيكون غرض اء زط0 فإن لم تكن تريد من المتغير 2ں في المثال السابق أن يكون من 
lڏiوع Integer‏ فيمكنك تحدید نوعا آخر عند التصريح عنه 


Dim num3 As Object = 3 or Dim num4 As Double = 3 


والكود الذي يستخدم استدلال النوع يشابه الكود الذي يعتمد على الربط المتأخر ع” لم81 مه1 الذي سيكون نوعه معروفا فقط في زمن 
التشغيل. ومعرفة النوع بشكل مبكر يمكن المترجم من تحديد المشاكل قبل التنفيذ وحجز الذاكرة بدقة وإجراء عمليات التحسين الأخرى 
بالإضافة إلى تمكين بيئة التطوير من تزويد المبرمج ب مء ه5|||ع†٠|‏ والمساعدة حول أعضاء ذلك الغرض بالإضافة إلى تفضيله لاعتبارات 
خاصة بالأداء بسبب أن جميع البيانات التي تخزن باستخدام الربط المتأخر يجب تغليفها وكأنها من النوع اءءزط0 والوصول إلى الأعضاء 
في زمن التشغيل سيكون أبطأ. 

يحدث الاستدلال على النوع عندما يتم التصريح عن المتغير بدون استخدام فقرة ك۸ في تعبير التصريح وضبط قيمة لذلك المتغير فيستخدم 
المترجم نوع تلك القيمة كنوع للمتغير فمثلا سطور الكود التالية تعرف متغيرا من النوع عا٣†؟‏ 


" USING BRBILETE, TYPING 
Dim namel As String = "Springfield" 


' Using local type inference. 
Dim name2 = "Springfield" 


ويستعرض الكود التالي طريقتان متكافئتان لإنشاء مصفوفة من النوع معم†١|‏ 


'" USING EXPLITEIE. EYIN: 
Dim someNumbers1 () As Integer = New Integer() {4, 18, 11, 9, 8, O0, 5} 


' Using local type inference. 
Dim someNumbers2 = New Integer() {4, 18, 11, 9, 8, O0, 5} 
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كما يمكنك استخدام الاستدلال على النوع لتحديد نوع متغير التحكم لحلقة تكرارية ففي الكود التالي سيتعرف المترجم على صم بأنه من 
النوع |nt eger‏ لان someNumbers2‏ عبارة عن مصفوفة ۲عع ما٣۱‏ 

Dim total = 0 

For Each number In someNumbers2 


total += number 
Next 


ويستخدم الاستدلال على النوع في العبارة ع ول أيضا لتحديد نوع اسم المصدر كما هو واضح في المثال التالي 


Using proc = New System.Diagnostics. Process 
' Insert code to work with the resource. 
End Using 


ويستدل على نوع المتغير من القيمة المعادة من الإجراء أيضا كما هو ظاهر في الكود التالي حيث يكون 1اءأام و 2اءأام عبارة عن كأءأا 
of Processes‏ 


" USING EXBITELE TYOLNG 
Dim pList1() As Process = Process.GetProcesses () 


' Using local type inference. 
Dim pList2 = Process.GetProcesses () 


وقد قدم فيجول بايزيك 2008 خيارا جديدا هو |٣۴٥۲‏ ١٣هام‏ يمكنك من تحديد إذا كان الاستدلال المحلي على النوع مسموحا م لا في ملف 
معين. فلتمكين أو تعطيل خيار الاستدلال على النوع اكتب التعبير المناسب من السطرين التاليين في بداية الملف 


OPtELOr, IMifek: Of 
OP ELON. THEGE ` GEE 


وإن لم تقم بتحديد قيمة للخيار |٣۴٥١‏ هام0 في الكود فالمترجم سيستخدم الخيار الافتراضي |"۴١١ 0١‏ ١٥م‏ من أجل المشاريع التي 
تم إنشاؤ ها في 2008 ءiءه8‏ امںءا۷ والخيار 0f‏ مما Option‏ من أجل المشاريع التي تمت ترقيتها من إصدارات سابقة. وإن تضاربت 
قيمة الخيار Option Infer‏ في الملف مع القيمة المضبوطة في خيارات بيئة التطوير أو في سطر الأوامر فسوف یتم استخدام القيمة 
الموجودة في الملف. 


ويستخدم الاستدلال على النوع فقط في المتغيرات الغير ساكنة ءأخه†ك-"ه" ولا يمكن استخدامها في تعريف حقول الفئة ءلاع۴ وها أو 
الخصائص Functions ٽءlرجإلا gİ Properties‏ 
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الأنواع المجهول Anonymous Types‏ 
يقدم فيجول ستوديو 2008 الأنواع المجهولة وممر† usمصرم‏ ممه والتي تمكنك من إنشاء الأغراض واءعزط0 بدون كتابة 
تعريف فة ۸ هاما۴مل ءوها٤‏ من أجل نوع البيانات وعوضا عن ذلك يولد المترجم الفئة من أجلك ولن يكون للفئة اسما قابلا للاستخدام 
حيث تكون هذه الفئات موروثة مباشرة من ٥زط0‏ وتمتلك الخصائص التي تحددها عند تعريف الغرض ء٠‏ زط0 وبما أن نوع البيانات لم 
یتم تحدیده یتم الإشارة إليه على أنه نوع مجهول .anonymous type‏ حیٹث يصرح المتال التالي عن المتغير rodutام‏ کمتغیر من النوع 

Price و‎ Name ممتلکا الخاصیتین‎ anonymous type 


' Variable product is an instance of a simple anonymous type. 
Dim product = New With {Key .Name = "paperclips", .Price = 1.29} 


حيث يستخدم تعبير الاستعلام التالي الأنواع المجهولة لدمج أعمدة البيانات المحددة بواسطة الاستعلام وبما أنه لا يمكنك تحديد نوع النتيجة 
مقدما بسبب عدم إمكانية التنبؤ بالأعمدة التي يمكن أن يختارها استعلام معين فتمكنك الأنواع المجهولة من كتابة استعلام يختار عدد من 
الأعمدة بأي ترتيب نريده فيقوم المترجم بإنشاء نوع البيانات المماثل لتلك الخصائص المحددة بذلك الترتيب المعين. وفي المثال التالي يكون 
Products‏ عبارة عن قائمة من أغراض اع ںكه۴ وكل منها يمتلك خصائص عديدة بحیث يحمل المتغیر ۷ ۳٥٣٣ ءءQ ue‏ ھم تعریف 
الاستعلام الذي يعيد عند تنفيذه مجموعة من الأنواع المجهولة التي تمتلك الخاصيتين م٣Na‏ و معأ" 


Dim namePriceQuery = From prod In products_ 
Select prod.Name, prod.Price 


والمتغير nameQuantity Query‏ يحمل تعريف الاستعلام الذي يعيد عند تنفيذه مجموعة من الأنواع المجهولة التي تمتلك خاصیتين 
OnHand s Name‏ 


Dim nameQuantityQuery = From prod In products __ 
Select prod.Name, prod.OnHand 


تعریف iوع‏ مجJg4 Declaring an Anonymous Type‏ 
تعریف متغير من نوع مجهول يستخدم قائمة بناء لتحديد خصائص ذلك النوع بحيث يمكنك تحديد هذه الخصائص فقط عند الإعلان 
عن النوع المجهول ولا يمكن استخدام بقية عناصر الفئات مثل الطرائق والأحداث في الأنواع المجهولة ففي المثال التالي يكون 1ع ں ه۴۲ 

من نوع مجهول يمتلك خاصیتین N۳٥‏ و ع٥٥٣۴‏ 


‘Variable product1 is an instance of a simple anonymous type. 
Dim product1 = New With {.Name = "paperclips", .Price = 1.29} 


- 'or- 


'product2 is an instance of an anonymous type with key properties. 
Dim product2 = New With {Key .Name = "paperclips", Key .Price = 1.29} 


فإن قمت بتحديد الخصائص كخصائص ية key properties‏ أصبح بإمكانك استخدامها لمقارنة نوعين مجهولين هل هما متساويين م 
لا ومع ذلك فقيم الخصائص المفتاحية لا يمكن تغييرها فهي للقراءة فقط. مع ملاحظة أن التصريح عن نوع مجهول يماثل التصريح عن نوع 
مسمى باستخدام باني الغرض object initializer‏ 


‘Variable product3 is an instance of a class named Product. 
Dim product3 = New Product With {.Name = "paperclips", .Price = 1.29} 


الخصائص ات Key Properties‏ 
تختلف الخصائص المفتاحية عن العادية بعدة أمور: 


ه تستخدم الخصائص المفتاحية فقط لمقارنة المساواة بين نوعين مجهولين 


ه لا يمكن تغيير قيم الخصائص المفتاحية فهي دائما للقراءة فقط 
ه فقط الخصائص المفتاحية يتم تضمينها ضمن ال مله اء الذي يولده المترجم من أجل الأنواع المجهولة 
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الaسصgl|ة Equality‏ 
تکون متغيرات الأنواع المجهولة متساوية عندما تكون متغيرات لنفس النوع المجهول ويقوم المعالج بمعاملة متغيرين كمتغيرين من 
نفس النوع إذا توفرت فيهما الشروط التالية 


تم التصريح عنهما في نفس المجمع 
تمتلك خصائصهما نفس الاسم والنوع وتم التصريح عنها بنفس الترتيب وتكون مقارنة الأسماء غير حساسة لحالة الأحرف 
نفس الخصائص فيها محددة كخصائص أساسية 

ه يمتلك كل نوع خاصية أساسية واحدة على الأقل 
والتصريح عن نوع مجهول الذي لا يمتلك أي خاصية مفتاحية يكون مساويا لنفسه فقط 


'prod1 and prod2 have no key values. 
Dim prod1 = New With {.Name = "paperclips", .Price = 1.29} 
Dim prod2 = New With {.Name = "paperclips", .Price = 1.29} 


'The following line displays False, because prod1 and prod2 have no 
'key properties. 
Console.WriteLine(prod1.Equals(prod2)) 


'The following statement displays True because prod1 is equal to itself. 
Console.WriteLine(prod1.Equals(prod1)) 


وتکون قيمة متغيرين لنفس النوع المجهول متساويين إذا كانت قيمة خصائصهما المفتاحية متساوية كما في المثال التالي الذي يوضح كيفية 
فحص هذه المساواة 


Dim prod3 = New With {Key .Name = "paperclips", Key .Price = 1.29} 
Dim prod4 = New With {Key .Name = "paperclips", Key .Price = 1.29} 
'The following line displays True, because prod3 and prod4 are 
‘instances of the same anonymous type, and the values of their 
'key properties are equal. 

Console.WriteLine(prod3.Equals(prod4)) 


Dim prod5 = New With {Key .Name = "paperclips", Key .Price = 1.29} 

Dim prod6 = New With {Key .Name = "paperclips", Key .Price = 1.29, OnHand = 423} 
'The following line displays False, because prod5 and prod6 do not 

'have the same properties. 

Console.WriteLine(prod5.Equals(prod6)) 


Dim prod7 = New With {Key .Name = "paperclips", Key .Price = 1.29, OnHand = 24} 
Dim prod8 = New With {Key .Name = "paperclips", Key .Price = 1.29, OnHand = 423} 
'The following line displays True, because prod7 and prod8 are 

‘instances of the same anonymous type, and the values of their 

'key properties are equal. The equality check does not compare the 

'values of the non-key field. 

Console.WriteLine(prod7.Equals(prod8)) 


القيم القابلة للقراءة فقط 
یمکن تغيير قيم الخصائص المفتاحية فمثلا في ۵8٠٣م‏ في المثال السابق الحقول مه" و مء قابلة للقراءة فقط في حين أن 
الحقل 0۸۳١2۳١‏ يمكن تغيير قيمته 


'The following statement will not compile, because Name is a key 
‘property and its value cannot be changed. 
'prod8.Name = "clamps" 
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'OnHand is not a Key property. Its value can be changed. 
prod8.OnHand = 22 


الأنواع المجهولة من تعابير اwlتعاںم Anonymous Types from Query Expressions‏ 
تعابیر الاستعلام لا تتطلب دوما إنشاء أنواع مجهولة فعند الإمكان يمكنها استخدام نوع موجود ليحمل بيانات العمود وهذا يحدث 
عندما يعيد الاستعلام إما سجلات كاملة من مصدر البيانات أو حقل واحد من كل سجل ففي المثال التالي یکون عص ہ†وںC‏ عبارة عن 
مجمو عة فئات ٥۲‏ 0ون والفئة تمتلك العديد من الخصائص بحيث يمكنك تضمين واحدة أو أكثر من هذه الخصائص في نتائج الاستعلام 
وبأي ترتيب تريده ففي المثالين الأوليين لا يوجد حاجة لأي نوع مجهول لأن الاستعلام يجلب عناصر من أنواع معروفة ف 1ءاوں) يكون 
من النوع stig‏ لان cust. Name‏ من النوع عہا٣St‏ و s2ءtیCcu‏ هو مجموعة من الأغراض ء٣eص٥اوں٤‏ لأن كل عنصر في 

Customers‏ هو غرض ٥٣٤۲‏ tوں٤‏ وكامل العنصر تم جلبه بواسطة الاستعلام 


Dim custs1 = From cust In customers_ 
Select cust.N ame 


Dim custs2 = From cust In customers_ 
Select cust 


ومع ذلك فالأنواع المسماة لا تكون دائما متوفرة حيث يمكنك الاستعلام عن Names‏ و Addresses‏ من أجل هدف معین و 0| و 
Numbes‏ و 0cationاL‏ من أجل هدف آخر فهنا تمكنك الأنواع المجهولة من اختيار أية تركيبة من الخصائص وبأي ترتيب بدون أن 
تضطر في البداية للتصريح عن نوع مسمى جديد ليحمل النتيجة وبدلا عن ذلك يقوم المترجم بإنشاء نوع مجهول لكل تركيبة من الخصائص 
فمثلا الاستعلام التالي يحدد فقط م۳" و 0| من كل غرض ۲٥٣0ء٤‏ في ٠٠۲١‏ 0ور ومن أجل ذلك يقوم بإنشاء نوع مجهول من تلك 
الخضاتضن 


Dim custs3 = From cust In customers_ 
Select cust.Name, cust.ID 


وكل من الاسم والنوع العائدين لخصائص النوع المجهول يتم أخذها من بارامترات الاستعلام ٥۳ھ‏ .٤sںاc‏ و d|ا.tوںC‏ وتکون خصائص 
النوع المجهول التي ينشئها الاستعلام خصائص مفتاحية دوما وعند تنفيذ 3ور في حلقة ۸عهع...١٠۴‏ التالية تكون النتيجة هي مجموعة 


For Each selectedCust In custs3 
Console.WriteLine(selectedCust.ID & ": " & selectedCust.Name( 
Next 


تحديد متى نستخدم الأنواع المجهولة 

قبل أن تقوم بالتصريح عن غرض بأنه من نوع مجهول يجب عليك التفكير فيما إذا كان هذا الخيار هو الأفضل فمتلا إن كنت تريد 
إنشاء غرض مؤقت ليحتوي بعض حقول المعلومات ولست بحاجة إلى بقية الحقول والطرائق التي تحتويها الفئة الكاملة يكون عندها النوع 
المجهول حلا جيدا وتكون الأنواع المجهولة ملائمة عندما تريد انتقاء مجموعة مختلفة من الخصائص عند كل تصريح أو إن كنت تريد تغيير 
ترتيب هذه الخصائص وإن كان مشروعك يحتوي على عدة أغراض تحمل نفس الخصائص بترتيب ثابت يمكنك عندها التصريح عنهم 
بسهولة باستخدام الأنواع المسماة باستخدام باني فئة فعندها باستخدام باني ملائم يمكن تعريف عدة متغيرات من الفئة خاucله٣"‏ ويكون ذلك 
أسهل من استخدام عدة متغيرات مجهولة النوع 


'Declaring instances of a named type. 

Dim firstProd1 As New Product("paperclips", 1.29) 

Dim secondProd1 As New Product("desklamp", 28.99) 

Dim thirdProd1 As New Product("stapler", 5.09) 

‘Declaring instances of an anonymous type. 

Dim firstProd2 = New With {Key .Name = "paperclips", Key .Price = 1.29} 
Dim secondProd2 = New With {Key .Name = "desklamp", Key .Price = 28.99} 
Dim thirdProd2 = New With {Key .Name = "stapler", Key .Price = 5.09} 


وتكمن فائدة أخرى للأنواع المجهولة في أن المترجم يمكنه التقاط الأخطاء الطباعية في أسماء الخصائص ففي المثال السابق يفترض بالأنواع 

firstProd2‏ و secondProd2‏ و thir Pro2‏ أن تكون متغيرات لنفس النوع المجهول ومع ذلك قمت عن طريق الخطأ بالتصريح عن 
thir r02‏ بأحد الطرائق اللاحقة وهو نوع مختلف عن od2ثfirstP‏ و secondProd2‏ 

'Dim thirdProd2 = New With {Key .Nmae = "stapler", Key .Price = 5.09} 

'Dim thirdProd2 = New With {Key .Name = "stapler", Key .Price = "5.09"} 


14 


'Dim thirdProd2 = New With {Key .Name = "stapler", .Price = 5.09} 

والأمر الأهم هو أنه هناك حدود لاستخدام الأنواع المجهولة لا تنطبق على الأنواع المعروفة فمع أن firstProd2‏ ڪ yg secondProd2‏ 

tir2‏ هي متغيرات لنفس النوع المجهول فالمتغير المجهول المشترك غير متوفر ولا يمكن توقع ظهوره كنوع معروف في الكود 

فمثلا يمكن استخدام النوع المجهول لتحديد توقيع الطريقة للتصريح عن حقل متغير فيكون بالنتيجة النوع المجهول غير ملائم لتبادل البيانات 
عبر الطرائق 
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Lambda Expressions 


ا Lambda Expression‏ هو وظيفة ١٥آاءمں۴‏ بدون اسم تحتسب وتعيد قيمة وحيدة كما يمكن استخدامها في التعابير التي تطلب 
إجراءات مفوضة عجعء |ام والمثال التالي عن هذه التعابير يأخذ قيمة ويعيد الناتج بعد إضافة واحد لها 

Function (num As Integer) num + 1‏ 
كما يمكنك إسناد هذه الوظيفة لمتغير وتمرير القيمة له 


Dim add1 = Function (num As Integer) num + 1 
Console.WriteLine (add1 (5) ) 


كما يمكنك تعريف وتنفيذ الوظيفة بنفس الوقت 


Console.WriteLine ( (Function (num As Integer) num + 1) (5)) 1‏ 
کما یمکن أن تستخدم ٥۸5‏ اووعام×ع daطص‏ ه1 كقيمة معادة عند استدعاء وظيفة أو تمريرها كوسيط لإجراء مفوض ففي المثال التالي 
تستخدم ء۸ 0‌iووعام×ع٤ da‏ طم ه1 بوليانية كوسائط للإجراء ااuوع1۸Rءع†‏ حيث تطبق الطريقة فحص بولياني لوسيط من النوع ١ععم†١|‏ 
ویظھر القیمة ووعععں؟ إذا كانت قیمة "ssi0ع Lambda Expr‏ هي rue‏ أو Failure‏ إن کانت قیمته ۴a|se‏ 


Module Module2 


Sub Main () 
' The following line will print Success, because 4 is even. 
testResult (4, Function (num) num Mod 2 = 0) 


' The following line will print Failure, because 5 is not > 10. 


testResult (5, Function (num) num > 10) 
End Sub 


Sub testResult takes two arguments, an integer value and a 
BOOLEaî EURNCELOE 

If the function returns True for the integer argument, Success 
is displayed. 

' Tf the function returns False for the integer argument, Failure 
ES  QLSPLaAyed; 
Sub testResult (ByVal value As Integer, ByVal fun As Func (Of Integer, 


Boolean) ) 
If fun (value) Then 
Console.WriteLine ("Success") 
Else 
Console.WriteLine ("Failure") 
End If 
End Sub 
End Module 
بإنشاء‎ ٥٠ هي الأساس لکثير من معاملات الاستعلام أا حيث يقوم المترجم ۲ءاام‎ Lambda Expressions تکون تعابیر‎ 


Take s By s Order ۾‎ Select sy Where Jin ط مھ ]1 للقيام بالعمليات الحسابية للطرائق الخاصة بالاستعلام‎ da ع×ماعووا٥‎ ٣۶ تعابیر‎ 
عا فعلى سبيل المثال انظر الاستعلام التالي‎ 
DIM LONAORNCUSES = FEFOM CUS IN QO .CUSEOMEES 


Where cust.City = "London" 
Select cust 


حيث ستتم ترجمته إلى الكود التالي 


DIR. LONAORCUSES = dBi CUSEOMEES _ 
.Where (Function (cust) cust.City = "London™”) 
+SELECTE(EUNCEELOR(ECEUSE): CUSE) 


وتكون صيغتها على الشكل 
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ه هذه التعابير لا تملك اسما 
لا يمكن استخدام المعدلات معا مثJ Overrides jÎ Overloads‏ 
ه لا تستخدم قسم ۸5 لتحديد نوع القيمة المعادة وبدلا عن ذلك يكون نوع القيمة المعادة هو نوع القيمة التي يشكلها جسم الإجراء فإن 
كان جسم الإجراء مثلا "٣0ل‏ ما" = ۷†أ٣.†وu‏ فتكون القيمة المعادة بوليانية 
ه جسم الإجراء يجب أن يكون تعبير وليس تصريح ويمكن أن يحتوي على استدعاء لوظيفة ١٥أاء"ں۴‏ ولكنه لا يمكن أن يستدعي 
إجراء Sub‏ 
٠ه‏ لا يوجد تعبير ۲٣‏ ں٥8‏ وتكون القيمة المعادة هي قيمة ذلك التعبير الذي يشكل جسم الوظيفة 
٠‏ لا یوجد تعبیر ٤d‏ 
ه يجب أن تكون جميع الوسائط محددة النوع أو تكون جميعها بأنواع بالإشارة 
ه غير مسموح بالوسائط الاختيارية 
الوسائط ٥٣٥م‏ مB‏ غیر مسموح بھا 
ونتيجة لهذه القواعد سنرى أن أي تعبیر ۸هأووم۲م×ع aلط‏ "ها سيكون بسيطا وغير معقد 


تشترك ٣‏ i0ءوعام×٤‏ هلاص ه1 مع الوظائف لمطم بأنها محددة ولها جميع حقوق الوصول كأي كود مكتوب في الطريقة التي تحتويها 
وهذا يتضمن الوصول إلى متغيرات الأعضاء والوظائف وجميع المغيرات الموجودة في الوظيفة التي تحتوي التعبير Lambda‏ 
Expression‏ ففي المثال التالي المتغير اءععه] هو محلي بالنسبة ل ع۳ه6ء٣۲ء)هم‏ والطريقة التي تم تحديد التعبير aلطصها‏ 
Expression‏ فيها هي عصhe64آ۲رهام‏ لاحظ أن القيمة المعادة من التعبیر n٣٥اییعام×xع Lambda‏ يتم تعيينها ل sوعuں A6‏ kهt‏ في 
مiةM‏ مازالت تستطيع الوصول للمتغير المحلي ع عه 


Module Modulel 


Sub Main () 
' Variable takeAGuess is a Boolean function. It stores the target 
' number that is set in makeTheGame. 
Dim takeAGuess As gameDelegqate = makeTheGame () 


' Set up the loop to play the game. 
Dim guess As Integer 
Dim gameOver = False 
While Not gameOver 
guess = CInt (InputBox ("Enter a number between 1 and 10 (0 to quit)", "Guessing Game", "0")) 
' A guess of 0 means you want to give up. 
If guess = 0 Then 
gameOver = True 
Else 
' Tests your guess and announces whether you are correct. Method takeAGuess 
' is called multiple times with different guesses. The target value is not 
' accessible from Main and is not passed in. 
gameOver = takeAGuess (guess) 
Console.WritelLine ("Guess of " & guess & " is " & gameOver) 
End If 
End While 


End Sub 
Delegate Function gameDelegate (ByVal aGuess As Integer) As Boolean 
Public Function makeTheGame () As gameDelegate 


' Generate the target number, between 1 and 10. Notice that 

' target is a local variable. After you return from makeTheGame, 
" i 1S5 hot directly accessible. 

Randomize () 

Dim target As Integer = CInt (Int (10 * Rnd() + 1)) 


'" Print the answer if you want to be sure the game is not cheating 
' by changing the target at each guess. 
Console.WriteLine (" (Peeking at the answer) The target is " & target) 


' The game is returned as a lambda expression. The lambda expression 

' carries with it the environment in which it was created. This 

' environment includes the target number. Note that only the current 

' guess is a parameter to the returned lambda expression, not the target. 


' Does the guess equal the target? 
Dim playTheGame = Function (guess As Integer) guess = target 
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Return playTheGame 
End Function 


End Module 


ويستعرض المثال التالي مجالا عريضا من حقوق الوصول المعششة في ٥٩١‏ ویم م×٤‏ هلط" ه] فعندما يتم تنفيذ التعبير هaلط"‏ ها 
Expression‏ من Main‏ ك اع0ه يستخدم العناصر التالية ( حقل في الفئة ل|ع۴ج - خاصية في الفئة م٠٣۴ج‏ - وسيط للإجرائية 
function With NestedLambda‏ هو 1اeve|‏ - متغير محلي ن function With Nested Lambda‏ هو Varاcaها‏ - وسیط للتعبیر 
Lambda Expression‏ المعشش ھور 2|عevا‏ ) 


Module Module3 


Sub Main () 


' Create an instance of the class, with 1 as the value of 

' the property. 

Dim lambdaScopeDemoInstance = New LambdaScopeDemoClass _ 
With {.Prop = 1} 


' Variable aDel will be bound to the nested lambda expression 

' returned by the call to functionWithNestedLambda. 

' The value 2 is sent in for parameter level1l. 

Dim aDel As aDelegate = _| 
lambdaScopeDemoInstance.functionWithNestedLambda (2) 


' Now the returned lambda expression is called, with 4 as the 

' value of parameter level3. 

Console.WriteLlLine ("First value returned by aDel: " & aDel (4)) 
' Change a few values to verify that the lambda expression has 
access to the variables, not just their original values. 
lambdaScopeDemoInstance.aField = 20 


lambdaScopeDemoInstance.Prop = 30 
Console.WriteLine ("Second value returned by aDel: " & aDel (40)) 
End Sub 


Delegate Function aDelegate (ByVal delParameter As Integer) 


As Integer 


Public Class LambdaScopeDemoClass 


Public arield As Integer = 6 
Dim aProp As Integer 


Property Prop() As Integer 
Get 
RECUEN: PEO 
End Get 
Set (ByVal value As Integer) 
aProp = value 
End Set 
End Property 


Public Function functionWithNestedLambda _ 
(ByVal levell1 As Integer) As aDelegate 
Dim localVar As Integer = 5 


When the nested lambda expression is executed the first 

' time, as aDel from Main, the variables have these values: 
' level1l = 2 

' level2 = 
' level3 
" 1TOCAEVAE 
' aField = 
' aProp = 1 


3, after alambda is called in the Return statement 
4, after aDel is called in Main 
6 


5 
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' The second time it is executed, two values have changed: 
' aField = 20 
' aProp = 30 
' level3 = 40 
Dim alambda = Function (levelZ2 As Integer) _ 
Function (level3 As Integer) _ 
LENE LL: F ‘TEVELZ E LOVELY # loca lVaE 
# A EFLELA #. PEO 


' The function returns the nested lambda, with 3 as the 
' value of parameter level2. 
Return aLlLambda (3) 

End Function 


End Class 
End Module 


کما یمکن تحویل ٥۸9‏ اءءع۲م×٤‏ هلطم ه1 لتتوافق مع الإجراءات المفوضة فعندما تعين Lambda Expression‏ لإجراء مفوض 
مatعeاeط‏ يمكنك تحديد أسماء الوسائط ولكن مع إغفال أنواع البيانات الخاصة بها تاركا مهمة تحديدها للإجراء المفوض ففي المثال التالي 
یتم تعیین ssi0۸عام×٤‏ aلط‏ ه1 لمتغير اسمه اع من النوع اع٥‏ ءامص ه×ع الذي هو عبارة عن إجراء مفوض يأخذ وسيطتين عععا١]‏ 
و ۴٣ء‏ لاحظ أن أنواع المتغيرات في ١٥ایومم×ع‏ لطم ه1 لم يتم تحديدها ومع ذلك ف اع يتطلب وسيطا من النوع عععtہ]‏ 
ووسیطا آخر من النوع عہ ا٣ء‏ کما تم تحدیدہ عند تعریف ع0 عام Exam‏ 


' Definition of function delegate ExampleDel. 
Delegate FüûnGEIOR ExampleDél (ByVal A#GL AS Ttegefy, _ 
ByVal arg2 As String) As Integer 


' Declaration of del as an instance of ExampleDel, with no data 
' type specified for the parameters, m and s. 
Dim del As ExampleDel = Function (m, s) m 


'" Valid Call EO dêl; Sending Ili an 1nteger and. ã SEEING. 
ConsölazWEtLteline(del(7, "üp™)) 


' Neither of these calls is valid. Function del requires an integer 
' argument and a string argument. 

'"Console.WEiteLinié (del (7, 3)) 

'Console.WritelLine (del ("abc") ) 


في المثال التالي يتم تحديد ٣هاووع۲م×ع‏ لص ها ليعيد القيمة م٣۲‏ إذا كان الوسيط يمتلك قسمة أو عءإج۴ إذا كان القيمة ع¡†No‏ 


Dim notNothing = Function (num? As Integer) 
num IsNot Nothing 
Dim arg As Integer = 14 
Console.WriteLine ("Does the argument have an assigned value?") 
Console.WriteLine (notNothing (arg) ) 


والمثال التالي يحدد ٣هاووم۲م×ع‏ هلاص ها يعيد »مل | العنصر الأخير في مصفوفة 


Dim nüumberS() As Integer = {0;, l, 2, 3, 4;, 5; 6, T7, 8, 9} 
Dim lastIndex = Function (intArray() As Integer) 
intArray.Length - 1 
For i = 0 To lastIndex (numbers) 
numbers (i) = numbers(i) + 1 
Next 
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Lambda Expressions Jnl تعابير لمدا في‎ 


تعتبر تعابير لمدا من الإضافات المفيدة في فيجول بايزيك 2008 حيث يمكنك إعادتها كقيمة من وظيفة أو تمريرها كمحدد لوظيفة 
أخرى حيث تمت إضافتها للغة البايزيك كدعم للغة الاستعلامات المضمنة ,|1 التي تضيف إمكانيات استعلامية قوية لبرمجة البيانات في 
فيجول بايزيك وعندما تبداً باستخدام تعابير لمدا سترى القوة والمرونة الكامنة فيها 


ما هي تعابیر لمدا 
يشكل الكود التالي مثالا عن تعريف تعبير لمدا أساسي فهو يعرف تعبير لمدا يأخذ ntegerا‏ ویعید ٣eعteہ|‏ بحیث یأخذ قیمة 


الدخل ويعيدها مضروبة ب 2 


Dim doublelt as Func(Of Integer, integer) = _ 
Function(x As Integer) x * 2 


والنوع ء۴ من الأنواع الجديدة في فيجول بايزيك 2008 وهو في الأساس إجراء مفوض م هعء ام0 يعيد نوعا يحدده المحدد الأخير 
ويمكنك من تمرير أربعة محددات تسبق ذلك المحدد والنوع المفوض عء"ں۴ معرف في المجمع |ا١.٥١٥٤.عtءر؟‏ الأمر الذي يمكنك من 
الاستفادة منه فوريا وذلك لأن المجمع المذكور يتم استيراده تلقائيا عندما ننشئ تطبيقا جديدا ويمثل الكود التالي تحميلات وءلهه|ا 0۷6 مختلفة 
Func‏ 


Dim fO As Func(Of Boolean) 
Dim f1 As Func(Of Integer, Boolean) 
Dim f4 As Func(Of Integer, Integer, Integer, Integer, Boolean) 


ففي المثال السابق ۴0 هو مفوض يعيد قيمة "۵عاهه8B‏ و ۴1 مفوض يأخذ إععع†"| ويعيد ١2اه‏ ه8 و ۴4 مفوض يأخذ أربعة محددات من 
النوع ۲ع ععا"| ويعيد قيمة من النوع "ءاه ه8 وتكمن النقطة الأساسية في التعبير لمدا هو أنه مفوض قابل للاستدعاء تماما كالمفوضات في 
فيجول بايزيك 2005 فمن ناحية المساواة اليمنى في قطعة الكود الأولى يمكنك رؤية الصيغة الجديدة للتعابير لمدا فهي تبدأ بالكلمة المحجوزة 
Function‏ متبوعة بقائمة من المحددات وتعبير وحيد ففي المثال السابق يأخذ تعبير لمدا محددا واحدا من النوع tegerہا‏ ونلاحظ عدم 
وجود تعبير R۲‏ وذلك لأن المترجم يعرف النوع المؤسس عليه التعبير وبهذا يقوم بتمرير عبارة نه تلقائيا وفي هذه الحالة بما أن 
× هو من النوع ٣ععع|‏ ونتيجة المعادلة هي ١ع‏ عع,| لهذا فنتيجة تعبير لمدا هي ١ععه†م|‏ أيضا ويمكن السحر في تعابير لمدا في أنه 
یمکن استخدامها کمفوض بسیط كما نری في المثال 


Dim doublelt As Func(Of Integer, Integer) = _ 
Function(x As Integer) x * 2 
Dim z = doublelt(20) 


فإن نفذت الكود السابق سترى أن القيمة المخزنة في < هي 40 وأنت بهذا قمت بإنشاء تعبير لمدا يضاعف قيمة أي ۲٥ع |١‏ يمرر له. 
دعنا الآن نتفحص مثال معقد أكثر باستخدام تعابير لمدا 


Dim mult As Func(Of Integer, Func(Of Integer, Integer)) = _ 
Function(x As Integer) Function(y As Integer) x * ¥ 


ويعتبر الا" تعبير لمدا معقد قليلا فهو يأخذ كدخل له محدد من النوع ۲ع ععا"| ويعيد تعبير لمدا كقيمة له والذي أخذ بدوره قيمة ٣ععما١|‏ 
ويعيد قيمة ۲ع عع]"| كما يمكننا إعادة تقسيم التعبير السابق على أسطر من أجل توضيح الكود 


Dim mult As Func(Of Integer, Func(Of Integer, Integer)) = _ 
Function(x As Integer) _ 
Function(y As Integer) xX * ¥ 


تیر مدا الخاز ى يختو ئ تير لمدا آخر ألذى تخد من قل الت خم كفنمة معادة ونكرن الثر قو الخاض نتير مدا الذاخلى مماثاذ 
فتعبیر رجي يحتوي تعبير خر الذي يستخدم من جم كق ويكون التوقيع الخاص بتعبير خلي 


لتوقيع المفوض Func(Of Integer, Integer)‏ في القيمة المعادة من تعبير لمدا الخارجي حيث يقوم المترجم بتر جمة التعبير بأكمله دون 
کک ویک رو تور اا هذا کنا بی 
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Dim mult_10 = mult(10) 
Dim r = mult_10(4) 


فالسطر الأول یحدد 10_٤اںص‏ ک (۲)10اںہ وبما أن (10)اں یعید تعبیر لمدا یأخذ محدد ویضربه ب 10 والنوع المعاد من 10_†اں" 
ضو Func)0۴ اnteger, Integer)‏ والسطر الثاني يستدعي 10_اںص ممررا له القيمة 4 بهذا ستكون القيمة المخزنة في ۲ هي 40 ويكون 
نوع ٣‏ ھو ٣عععا٣|‏ ویعتبر ٤ا‏ مصنع لتعابير لمدا فهو يعيد تعبير لمدا مخصص بالمحدد الأول وستلاحظ أن تعبير لمدا الداخلي يستخدم 
محدد تعبير لمدا الخارجي ولكن فترة حياة تعبير لمدا الداخلي تتجاوز فترة حياة تعبير لمدا الخارجي 


تعابير لمدا كاستدعاءات 
بما أن تعابير لمدا هي ببساطة مفوضات لذا يمكنك استخدامها في أي مكان يمكن استخدام المفوض فيه. لاحظ الإجراء التالي الذي 
يأخذ مفوض كمحدد له ويستدعي مفوض من أجل كل عنصر في القائمة 


Delegate Function ShouldProcess(Of T) (element As T) As Boolean 


Sub ProcessList(Of T) ( _ 
Elements As List(Of T), shouldProcess As ShouldProcess(Of T)) 


For Each elem in elements 
If shouldProcess(elem) Then 
' Do some processing here 
End If 
Next 
End Sub 


ويكون المثال التالي تطبيقا قياسيا على المفوضات فالطريقة اءااءوععه٣"‏ ستمر على كل عنصر من القائمة وتتحقق فيما إذا كان عليها 
معالجة العنصر ثم تقوم ببعض المعالجة وحتى تتمكن من استخدام هذا في فيجول بايزيك 2005 عليك إنشاء وظيفة تمتلك نفس توقيع 
المفوض تم تمرر عنوان تلك الوظيفة إلى الإجراء ءأاووععهمP‏ 


Class Person 
Public age As Integer 
End Class 


Function _PrivateShouldProcess(person As Person) As Boolean 
Return person.age > 5O0 
End Function 


Sub Dolt() 
Dim list As New List(Of Person) 
'Obtain list of Person from a database, for example 
ProcessList(list, AddressOf _PrivateShouldProcess) 
End Sub 


وهذا يسبب بعض الإز عاج فغالبا عليك البحث في توثيق الكود لمعرفة ماذا يمثل توقيع المفوض تم يجب عليك مطابقته كليا وإن احتجت 
ProcessList sli‏ مع عدة إجراءات ستقوم بإنشاء العديد من الوظائف الخاصة. 


دعنا نرى الآن كيف يمكننا استدعاء هذا الإجراء باستخدام تعابير لمدا 


Class Person 
Public age As Integer 
End Class 


Sub Dolt() 
Dim list As new List(Of Person) 
'Obtain list of Person from a database, for example 
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ProcessList(list, Function(person As Person) person.age > 50) 
End Sub 


فباستخدام تعابير لمدا لم يعد هناك حاجة لإنشاء وظيفة خاصة للقيام بمنطق المعالجة حيث يتم تعريف المفوض في النقطة التي سيستخدم فيها 
وهذا أفضل من تعريفه ضمن وظيفة خاصة في مكان ما وفقدان محليتها باستخدام الطريقة الخاصة وبهذا أنت ترى قوة تعابير لمدا وتسهيلها 
لعملية قراءة وصيانة الكود الخاص بك 


لماذا تم تقدیم تعابیر لمدا 
من أجل دعم استعلامات لينك ٩ا‏ كان يجب إضافة مجموعة من الإمكانيات الجديدة للغة فيجول بايزيك ومن ضمنها كانت تعابير 
لمدا. افترض أنه لدينا الاستعلام التالي 


Dim q = From p In Process.GetProgesses() _ 
Where p.PriorityClass = ProcessPriorityClass.High _ 
Select P 


فلكي يتم ترجمة هذا التعبير يجري الكثير من العمل تحت الغطاء فالمترجم سيقوم بالمرور عبر المجموعة Process.GetProcesses‏ 
ويطبق المرشح الموجود في قسم ۷٠۲٠‏ عليها ويعيد قائمة بالعمليات التي تطابق ذلك الشرط كما نلاحظ وجود تعبير فيجول بايزيك داخل 
قم Where‏ و ProcessPriorityClass.High‏ = assاPriorityC.م‏ وذلك لتطبيق المرشح وهنا يقوم المترجم بإنشاء تعبير لمدا من أجل 
المرشح الموجود في قسم ۷٠۴١٠‏ ويطبقه على كل عنصر في قائمة العمليات 


Dim q = Process.GetProcesses().Where( _ 
Function(p) p.PriorityClass = ProcessPriorityClass.High) 


وأساسا يشكل التعبير لمدا اختصارا للمترجم من أجل اختصار عملية إنشاء الطرق وربطها مع المفوضات حيث يقوم بكل ذلك من أجلك 
وافاة اللي تجها من كار ذا رلا نها عة اتتام الرظانف والمفرضات هى أن اثر ها تكم الاستلال المحلى على اقرع 
على قاين دا فى المقال السابق بے تضيد تزع المخة م يتا كلى الأتشكام وقي هذه الكالة يكذ افير قى شم ٠٠‏ ١غ‏ كر لذا 
ويقوم المترجم بالاستدلال آليا على نوع القيمة المعادة من التعبير لمدا بحيث تعتبر ميزة الاستدلال المحلي على النوع المدعومة من قبل 
المعالج من الإضاقات القرية لفيجول بابزيك 


الاستدلال المحلي على النوع 

تقديم ميزة الاستدلال المحلي على النوع القوية يعني أنه لم يعد عليك أن تقلق حول تحديد النوع الملائم لكل متغير وبالتالي فهي 

تمكنك من القيام بالعديد من الأمور التي كانت تبدو مستحيلة فالاستدلال على النوع المعاد من تعابير لمدا مفيد جدا فإن كان لديك نوع مفوض 
تريد ربطه مع تعبير لمدا لم يعد عليك تحديد نوع جميع المحددات 


Dim lambda As Func(Of Integer, Integer) = Function(x) X * x 


ففي هذا المثال یکون نوع تعبیر لمدا هو (٣ععع ter, |٣٤‏ ہا ۴unc)0۴‏ وهو مفوض یأخذ محدد من النوع ٥۲‏ ع٥۸|‏ ویعید محدد من النوع 
ntegerا‏ وکنتیجة لھذا فالمترجم یستدل آلیا على أن المحدد × العائد لتعبير لمدا هو من النوع هاما والقيمة المعادة من التعبير لمدا هي 
امعteم!ا‏ أيضا كما يمكنك الاستفادة من الاستدلال على نوع تعابير لمدا عندما تستدعي طريقة تأخذ مفوضا لاحظ الكود التالي 


Delegate Function ShouldProcess(Of T) (element As T) As Boolean 


Sun ProcessList(Of T) (_ 
Elements As List(Of T), shouldProcess As ShouldProcess(Of T)) 
' Method body removed for brevity 
End Sub 


في هذه الحالة تأخذ الوظيفة ءأاءومع ه۲ تعبير لمدا ويمكن استدعاؤها على الشكل 


Sub Dolt() 
Dim list As new List(Of A) 
' fill or obtain elements in list 
ProcessList(list, Function(a) a.x > 50) 
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End Sub 
لاحظ أننا لم نحدد نوع المحدد الممرر للتعبير لمدا كما فعلنا سابقا وذلك لأن المعالج يستدل عليه بنفسه.‎ 


کیف یمکن حدوث شئ کهذا؟ في الحقيقة هناك عدة مستويات من الاستدلال على النوع في هذا المتال ففي البداية يرى المترجم ProcessList‏ 
كإجراء عادي يأخذ (۲ 0۴)ءا کدخل له و (۲ 55)0۴ع٤ 4۴۲٥‏ اںهطك في استدعاء tواایومع‌ه۴۲‏ ويرى المترجم أن ءا هي المحدد الأول 
وأنها (”0ء۲٠۴‏ 1)0۴ء| وبما أن المحدد الثاني لا يوفر تلميحات حول ماهية نوع ۲ فيقرر المترجم أن ۲ من النوع 0۸ء۴٣٠۴‏ ويستدل من هذا 
على أن محدد (۲ d٥r0 cess)0۴‏ اuهsh‏ هو من النوع ٣هء۲ه۴‏ وبهذا يستدل على أن المحدد الثاني هو من illوع‏ )7 ShouldProcess(Of‏ 
وأخيرا بما أن تعبير لمدا لا يقدم نوع المحدد الخاص به والمترجم يعرف أن نوع المحدد يعتمد على توقيع 

المفوض (۲ 4٥٣٥ ٤٤55)0۴‏ اںاہط؟ وقد استدل علی أن نوع المحدد ھ ھر ٥٥٣٥۸‏ ویعتبر هذا نوعا قویا من الاستدلال على النوع فلیس 
عليك معرفة نوع محددات المفوض عندما تبني تعبير لمدا وفي الحقيقة من الأفضل ترك المترجم يقوم بذلك العمل نيابة عنك والاستدلال على 
نوع النتيجة بهذه الطريقة مفيد حقيقة إن لم يكن لديك نوع مفوض وتريد من المترجم أن يقوم بتصنيعه من أجلك علما بأن هذه الميزة متوفرة 
في فيجول بايزيك فقط 


Dim lambda = Function(x As Integer) x * x 


ففي المثال السابق بما أن المحدد × هو من النوع ٣ععع†م|‏ فالمترجم يستدل آليا على أن القيمة المعادة هي من النوع ٣عععم|‏ أيضا كنتيجة 
المعادلة الموجودة في التعبير وبما أن تعبير لمدا لا يمتلك نوعا لهذا يقوم المترجم بتصنيع مفوض مجهول يطابق شكل تعبير لمدا ويربط ذلك 
النوع المفوض بتعبير لمدا. وهذه ميزة عظيمة لأنها تعني أنه يمكنك إنشاء تعابير لمدا بسرعة بدون أن تحتاج لتعريف الأنواع المفوضة 

الخاصة بها. فكم مرة كنت في وضع تحتاج فيه لتطبيق مجموعة من المتغيرات وتحتاج إلى فعل ذلك في العديد من الأماكن ففي الكود التالي 


مرت عدة حالات مشابهة وعادة يمكننا معالجة ذلك بحيث يمكن التحقق من الشرط في مكان واحد بدلا من التشتت في أرجاء الوظيفة 


Class Motorcycle 
Public color As String 
Public CC As Integer 
Public weight As Integer 
End Class 


Sub PrintReport(motorcycle As New Motorcycle) 
If motorcycle.color = "Red" And motorcycle.CC = 600 And _ 
Motorcycle.weight > 300 And Motorcycle.weight < 400 Then 


' do something here 
End If 


' do something here 


If motorcycle.color = "Red" And motorcycle.CC = 600 And _ 
Motorcycle.weight > 300 And Motorcycle.weight < 400 Then 


' do something here 
End If 
End Sub 


وفي بعض الأحيان يستخدم هذا التحقق في هذه الوظيفة فقط ويمكننا إضافة إجراء في الفئة لدعم تلك الوظيفة فقط والقيام بذلك يؤثر على 
عملية صيانة الكود فماذا لو قام أحد ما باستدعاء هذه الوظيفة في مكان آخر واحتجت للقيام بتعديل ما وقد يؤدي هذا في بعض الفئات إلى 
وجود وظائف يصعب تعقبها جاعلا خاصية م۸5 ء؟|||ع†ه| أقل فائدة لوجود العديد من المدخلات الإضافية فيها إضافة إلى خرق منطق 
المحلية وإن قمنا بذلك باستخدام طريقة منفصلة مختلفة عندها يفضل أن تكون قريبة من الطريقة التي تستخدمها ومع وجود العديد من 
الأشخاص يعملون على نفس المشروع يصبح من الصعب صيانة المحلية على المدى الطويل وهنا يأتي استخدام تعابير لمدا وترك المترجم 
E A E‏ 


Sub PrintReport(motorcycle As New Motorcycle) 
Dim check = Function(m As Motorcycle) m.color = "Red" And _ 
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m.CC = 600 And _ 
m.weight > 300 And _ 
m.weight < 400 


If check(motorcycle) Then 
' do something here 
End If 


' do something here 


If check(motorcycle) Then 
' do something here 
End If 
End Sub 


قمنا هنا بتعديل منطق تفحص بعض شروط ءاءرء۲ هه ليستخدم تعابير لمدا عوضا عن سيئات الطرائق الخاصة حيث سيقوم المترجم 
تلقائيا بإنشاء النوع المفوض ويقوم بالعمل لكي نستطيع استدعاء تعابير لمدا أينما احتاج ذلك وهذه الطريقة مفيدة لأنها تضع المنطق قريب من 
التصريح حيث نقوم بتصنيع نسخة واحدة ويقوم المترجم بعدها بمعظم عمليات الصيانة ويعتبر هذا مفيدا لأنه يمكنك من بناء تعبير معقد 
كجسم لتعبير لمدا وباستخدام الربط المتأخر والاستدلال على النوع في هذا السيناريو فلا نحدد نوع تعبير لمدا أو المتغير 


Dim lambda = Function(x) xX * x 


وهنا أيضا يولد المعالج مفوض مجهول من أجلك ولكن يحدد نوع تعبير لمدا ك اء عزط0."ءءر؟ وهذا يعني أنه قد تم تفعيل الربط المتأخر 
في هذا السيناريو عندما يكون الخيار عاك هنام على الوضع 0f‏ ويعتبر هذا السيناريو جيدا بالنسبة لأولئك الذين يعتمدون على الربط 
المتأخر حيث أن تعابير لمدا تدعم عمليات الربط المتأخر بشكل كامل ففي المثال السابق طالما أن المعامل * معرف على الأنواع الممررة إلى 
تعبير لمدا فسوف يعمل 


Dim a = lambda(10) 

Dim b = lambda(CDec(10)) 

Dim c = lambda("This will throw an exception because " & _ 
"strings don't support the * operator") 


اتر ن فان ان طا ان اعا * بوجو في مات زم القن لب رع اتر ر قرت بجر کی کے ل ج كا 
أن تعابير لمدا تتأقلم بشكل رائع مع الربط المتأخر في فيجول بايزيك. 


الكود المولد تحت الغطاء 
بعدما استكشفنا تعابير لمدا دعنا نلقي نظرة على الكود الذي يتم توليده من قبل المترجم. انظر للكود السابق 


Sub TestLambda() 
Dim doublelt As Func(Of Integer, Integer) = _ 
Function(x As Integer) X * 2 
Console.WriteLine(doublelt(10)) 
End Sub 


أنت تعلم أن ٤٠ں‏ ۴ هو مفوض والمفوضات هي مؤشرات للوظائف فكيف يقوم المترجم إذا بالعمل؟ في هذه الحالة يقوم المترجم بإصدار 
وظيفة جديدة ويربطها بمفوض يشير إلى تلك الوظيفة الجديدة 
Private Function $GeneratedFunction$(x As Integer) As Integer‏ 


Return xX * 2 
End Function 


Sub TestLambda() 
Dim doublelt As Func(Of Integer, Integer) = _ 
AddressOf $GeneratedFunctionS 


24 


Console.WriteLine(doublelt(10) 
End Sub 


حيث يأخذ المترجم تعبير لمدا وينشئ وظيفة جديدة بمحتوياته ويغير عبارة التصريح بحيث يأخذ تعبير لمدا عنوان الوظيفة الجديدة المولدة 
ففي هذه الحالة يتم توليد الوظيفة بنفس الأب الذي يحتوي على الطريقة التي تستخدم تعبير لمدا فإن كان هلط ”هاوه معرف في الفئة ° 
فسوف يتم تعريف الوظيفة الجديدة في الفئة C‏ أيضا ونلاحظ أن هذه الوظيفة غير قابلة للاستدعاء ويتم التصريح عنها باستخدام محدد 
الوصJg Private‏ 


تعابير لمدا ورفع المتغيرات 

في الأمثلة السابقة يشير جسم تعابير لمدا إلى متغيرات يتم تمريرها إلى تلك المتغيرات ومع ذلك تأتي قوة تعابير لمدا مع ثمار رفع 
المتغيرات وجميع تعابير لمدا مبنية على مبداً متشابه. وتعبير لمدا يمكن أن يستخدم متغيرات مرتبطة أو متغيرات حرة لم يتم تعريفها ضمن 
التوقيع الخاص بتعبير لمدا فالمتغيرات الحرة ممكن أن يكون قد تم التصريح عنها في الإجراء المستدعي للتعبير فقد تكون متغيرات محلية أو 
محددات ممررة لذلك الإجراء والتعابير المرتبطة تكون تلك التي تم التصريح عنها في جسم التعبير أو عناصر في الفئة المحتوية للتعبير لمدا 
متضمنا الفئة الأب لتلك الفئة. وهذا هام من أجل التمييز بين المتغيرات المرتبطة والحرة في تعابير لمدا الخاصة بك لأنها تؤثر على دلالة 
تعبير لمدا والكود الذي يتم توليده وبالتالي يؤثر على صحة برنامجك وهذا متال يحتوي على تعابير لمدا تستخدم متغيرات مرتبطة وأخرى 
حرة 


Function MakeLambda() As Func(Of Integer, Integer) 
Dim y As Integer = 10 
Dim addTen As Func(Of Integer, Integer) = Function(ByVal xX) x + y 
Return addTen 

End Function 


Sub UseLambda() 
Dim addTen = MakeLambda() 
Consloe.WriteLine(addTen(5)) 
End Sub 


فهذا الكود سيقوم بطباعة 15 على نافذة الكونسول عندما يتم استدعاء ولط" هاعءل ولكن يمكن أن تسأل نفسك كيف يعمل هذا؟ تحدد 
الوظيفة aلdط"هاع)ة"‏ المتغير ب كمتغير محلي والتعبير لمدا يستخدم ‏ ب ولكن التعبير لمدا يتم إعادته كنوع معاد من الوظيفة 
MakeLkambda‏ والوظيفة هلط هاعءل تحصل على التعبير لمدا من الوظيفة aل١ط"‏ هاعم )ه" وتنفذ التعبير لمدا ويبدو الأمر كما لو أن 
المتغير ر قد تم تذكره من قبل التعبير لمدا. ففترة حياة المتغير ب تنتهي مع نهاية الطريقة aلطا"هاع)ة"‏ فعندما نحصل على التعبير لمدا 
من daطص Mak e12‏ فسوف تصبح هلاه اع )ه" خارج المجال ويجب إزالة المساحة التي تحجزها في المكدس وبطريقة ما يعلق هذا 
المتغير مع تعبير لمدا وهذا ما يعرف برفع المتغير ع”١|ا؟نا‏ عاطها ه۷ ففي هذه الحالة يدعى المتغير ر بالمتغير المرفوع وكما ترى 
فالمتغيرات المرفوعة تعتبر ميزة برمجية قوية فالمترجم يقوم بالكثير من العمل من أجل تمكينك من إمساك حالة المتغير حيث يحفظها خارج 
مجال فترة حياتها الطبيعية فعندما يصادف المترجم تعابير لمدا تستخدم متغيرات حرة يقوم برفع المتغیر إلى فئة تدعی ع ںوها بحيث تكون 
فترة حياة هذه الفئة تمتد إلى ما بعد فترة حياة المتغيرات الحرة المستضافة داخلها ويقوم المترجم بإعادة كتابة الوصول إلى المتغيرات في 
الطرق ليتم الوصول إلى نسختها الموجودة في الفئة مuوهاZ€‏ 


دعنا نسير مرة أخرى عبر المثال MakeLam bda‏ 


Dim MakeLambda() As Func(Of Integer, Integer) 
Dim y As Integer = 10 
Dim addTen As Func(Of Integer, Integer) = Function(ByVal x) x + y 
Return addTen 
End Function 


وكما قمنا بالتحليل سابقا فالمتغير × مرتبط بمحدد التعبير لمدا ولكن المتغير ر تعبير حر ويقوم المترجم بالكشف عن ذلك ويتابع بإنشاء الفئة 
Closure‏ التي تلتقط المتغيرات الحرة كما في تعريف تعبير لمدا 


Public Class _Closure$_ 1 
Public y As Integer 
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Public Function _Lambda$_ _1(ByVal x As Integer) As Integer 
Return x + Me.y 
End Function 
End Class 


يمكنك رؤية أن متغير ١إںوهاع‏ يلتقط المتغير ر ويخزنه في الفئة ٠إںءهاع‏ ويتم تحويل المتغير الحر بعدها إلى متغير مرتبط داخل الفئة 
م suهاC‏ كما يقوم المترجم بإعادة كتابة الطريقة التي تحتوي على التعبير لمدا لتبدو كما يلي 


Function MakeLambda() As Func(Of Integer, Integer) 
Dim Closure As New _Closure$_ 1 
Closure.y = 10 
Return AddressOf Closure._Lambda$_ 1 

End Function 


يمكنك الآن رؤية كيف يقوم المترجم بإنشاء المتغير هءإءه‌اع ويعيد كتابة المتغير ر الذي تم رفعه ضمن المتغير ٠إ‏ اءها٣‏ ويضبط قيمته 
ويعيد ببساطة عنوان تعبير لمدا المخزن ضمن الفئة ٠إ‏ وها ومن الهام ملاحظة أن المترجم يقوم برفع المتغيرات الحرة في تعابير لمدا فقط 
ويتم التقاط حالة المتغير في ٥إںوهاع‏ الذي يبقى موجودا طالما أن تعبير لمدا بقي موجودا. انظر للمثال التالي 


Sub Test() 
Dim y As Integer = 10 
Dim Lambda As Func(Of Integer, Integer) = Function(ByVal x) x + ¥ 
۷ = 20 
Console.WriteLine(Lambda(5)) 
End Sub 


ما هي القيمة التي تظهر عند تنفيذ الوظيفة السابقة؟ إن قلت 25 فقد أصبت. فلماذا 25 إذا؟ المترجم يقوم بالتقاط وإعادة كتابة جميع المتغيرات 
الحرة ۷ إلى نسخة Closure‏ كالتالي 


Sub Test() 
Dim Closure As New $Closure_Compiler_Generated_NameS 
Closure.y = 10 
Dim Lambda = AddressOf Closure.Lambda_1 
Closure.y = 20 
Console.WriteLine(Lambda(5)) 
End Sub 


ففي الوقت الذي يتم تنفيذ تعبير لمدا فيه تكون قيمة ر قد تغيرت إلى 20 وبهذا فعندما يتم تنفيذ تعبير لمدا يعيد 20 + 5 وهذا هام جدا لأنه 
عندما نأتي للحديث عن الحلقات وأن المتغيرات الحرة يتم التقاطها في اوها وحيد قد ترى تصرفات غريبة. انظر للمثال التالي 


Sub Test() 
Forl=1To05 
StartThread(Function() | + 10) 
Next 
End Sub 


افرض أن 52۲١٣۸۲٥١۵۵4‏ ينشئ مسارا جديدا ويطبع النتيجة على الكونسول وطالما أنه تم التقاطه إلى ءإںءهاع فيمكن أن تكون الحلقة قد 
غيرت قيمة | في الوقت الذي يقوم المسار فيه باستدعاء تعبير لمدا وفي هذه الحالة فالبرنامج قد لا يطبع النتيجة المتوقعة وبدلا عن ذلك عليك 
رؤية المتغير الملتقط داخل الحلقة 


Sub Test 
Forl=1To05 
Dim x =| 
StartThread(Function() x + 10) 
Next 
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End Sub 


فالكود سيلتقط الآن قيمة × في ماuءها‏ والبرنامج سيطبع القيم كما هو متوقع ومن الهام جدا معرفة أية متغيرات سيتم رفعها عندما سيتم 
تنفيذ تعبير لمدا ومتى سيتم تغيير قيمة تلك المتغيرات المرفوعة وبذلك يمكنك التأكد من أن برنامجك يتم تنفيذه بصورة صحيحة. 


استخدام تعابير لمدا بالشكل الأمثل 
في فيجول بايزيك 8 يمكنك تمرير تعبير واحد كجسم لتعبير لمدا وقد تم تقديم كلمة محجوزة تلاتية جديدة هي || لتمكنك من 
كتابة تعابير شرطية ذات نوع كامل 

Dim x = IF(condition, 10, 20) 


والكلمة المحجوزة ۴| مشابهة لاستدعاء الوظيفة ۴|| فيما عدا أنها آمنة ضد النوع. وهذا يعني أنه في المثال السابق يتتبع المترجم كلا فرعي 
الكلمة المحجوز ۴| ويعيد ۲ع عع]"| وبهذا فهو يطبق قواعد الاستدلال على النوع ویقرر أن نوع »× هو ۲ععهہ | ولکن استخدام ۴|| سيعيد 
النوع اء عزط0. كما يمكنك استخدام ۴| في تعبير لمدا 


Dim x = Function(c As Customer) _ 
If(c.Age >= 18, c.Address, c.Parent.Address) 


ففي المثال السابق افترض أنه لديك فئة ٣عصهاوں‏ يتضمن تعريفها الخاصية ءء٠‏ ل۸ التي تمثل العنوان الحالي للزبون حيث أن تعبير 
لمدا يستخدم التعبير الثلاثي ۸٥اووم۲م×ع‏ رهم٣٠٠٣‏ لتطبيق الشرط على محدد الدخل فإن كان عمر الزبون مساويا أو أكثر من 18 فهو يعيد 
عنوانه وإلا فهو يعيد عنوان والده وهنا يتم استخدام الاستدلال على النوع أيضا ويقوم المترجم بتحدید نوع تعبیر لمدا لیکون re59‏ ل۸ تم 
يقوم بإنشاء النوع المفوض »× بالطريقة التي تمت مناقشتها سابقا حيث يأخذ النو ع المفوض ۲ع" 0اوں٤‏ كدخل ويعيد ءوعإللA.‏ 
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Object Initializers 


تمكنك 6اا bjt‏ من تحديد خصائص غرض معقد ضمن تعبير واحد وتستخدم لتعريف متغيرات من كلا من الأنواع 
المعروفة والمجهولة فلو فرضنا أنه لدينا فئة بسيطة معoyام‏ »۴ معرفة على الشكل 


Public Class Employee 


PEIivatê _ name AS SEEING 
PEI¥atê _Salalry As SOFÊ 
PEIVAES _ AQQEESS. AS SEBRING 


PUDILE PEOopeEty Name). AS STEING 


Get 
Retürn _name 
End Get 
Set (ByVal value As String) 
_name = value 
End Set 
ENQA PEOPpEFEY 


PUDLIE. PEODEEEY SalaEry() A6 ShHOEE 
GEE 
Return _Salalry 

End Get 

Set (ByVal value As Short) 

If value > 0 Then 
_Salalry = value 

ENG. TLE 

ENQA. SOE 

End PEoperty 


Public Property Address() As String 
Get 
Return _Address 

End Get 

Set (ByVal value As String) 

_Address = value 

End Set 

End Property 

(ES 


End 


يمكننا باستخدام تعريف متغير يشير إلى تلك الفئة واسندا الخصائص كما في الكود التالي مع أننا لسنا مضطرين هنا لضبط قيم كافة 
الخصائص التي تحتويها الفئة فنقوم بضبط قيم الخصائص التي نحتاج لضبطها فقط 


:SalaFy = $500} 


.Salary = 10000} 


Empl3 = New Employee With {.Name = "Mazen", 
Empl1 As New Employee With {.Name = "Reem", 


کما یمکننا اختصار قسىم 5 هنا فيمكن كتابة التصريح کما يلي وذلك اعتماد على local type inference‏ 


بينما كنا في السابق وباستخدام نفس الفئة كما يلي 


Empl5 = New Employee With {.Name = "Ahmad"} 


Dim Empl2 As New Employee 

With Empl2 

.Name = "Ahamd" 
.Salary = 11500 

End. WEE 


Di 


Di 


Di 


وإن كانت لدينا فئة تحتاج لتمرير قيم لمشيد الفئة مثل الفئة 0ء٣٠‏ مثلا فيمكننا أيضا استخدام نفس الطريقة لضبط خصائص أخرى لا يتم 
تمرير ها لمشيد الفئة 


Dim Perl As New Person ("Ghassan") With {.Address = "Damas"} 
كما تستخدم هذه الطريقة أيضا لتعريف الأنواع المجهولة‎ 
Dim Visitor = New With {.Name = "Mussa", .Account = 232536} 


وكما نلاحظ من طريقة التعريف فصيغة تعريف الأنواع المعروفة مماثلة في الشكل للأنواع المجهولة ففي الأنواع المعروفة لاحظ وجود اسم 
الفئة بعد الكلمة عم بينما عندما نعرف نوعا مجهولا لايوجد اسم للفئة بعد الكلمة عم بسبب أن الأنواع المجهولة ليس لها اسم فئة قابلة 
للاستخدام فعند استخدام فئة معروفة عند التصريح يجب أن تكون الخصائص التي نريد ضبط قيمها موجودة فعلا والتصريح ينشئ متغيرا 
يشير إلى تلك الفئة ومن أجل تعريف النوع المجهول يقوم المترجم بإنشاء فئة جديدة لذلك المتغير تحتوي الخصائص المشار إليها في 
التصريح ويحدد اسمها عند الترجمة وقد يختلف لاسم من عملية ترجمة لأخرى لذلك لا يمكن الاعتماد على اسم الفئات المجهولة ضمن الكود 
أو التعريف 


وإليك بعض الملاحظات الخاصة بالتعريف 

- قائمة التعريف بعد W1‏ لا يمكن أن تكون فارغة 

- لا يمكن تكرار تعريف قيمة لخاصية أكثر من مرة في نفس التعريف 
- يمكن ضبط قيمة خاصية من خاصية أخرى 


- في حال كانت إحدى الخصائص فئة يمكن تعشيش التصريح بنفس الطريقة 


Dim cust1Z2 = New Customer With {.Name = "Toni Poe", _| 
.Address = New AddressClass _ 
WItH {.CLEyY = WEOULSVILLE, _ 
.State = "Kentucky"} } 


Console.WriteLine (cust12.Address.State) 
W۸ لا يمكن استخدام عناصر مشتركة ل مه5 أو للقراءة فقط را40 هء# أو الثوابت أو استدعاء الطرق في القائمة بعد كلمة‎ - 


- لا يمكن استخدام الخصائص التي تمتلك فهرسا أو المشروطة كمصفوفة مثلا فالتعريفات التالية مثلا غير صحيحة 


FT NOE VALLI 
' Dim c1 = New Customer With {.OrderNumbers (0) = 148662} 
' Dim c2 = New Customer with {.Address.City = "Springfield"} 
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يه * 


ترقية 


مشاريع 2005 لتعمل على 2008 ثم إضافة دعم 1.14 لتلك المشاريع 


افتح مشروعك ضمن بيئة تطوير 2008 فيظهر لك معالج الترقية تلقائيا - اضغط ×ع" 

يظهر لك المعالج خيار عمل نسخة احتياطية للملفات القدیnة‏ فنختlر‏ lئخيlر pû Yes, create a backup before converting‏ 
يقترح مكانا لوضع النسخة الاحتياطية فيه في مربع النصوص تحت الكلمة مں)عھط ۴٥٣‏ مماtهءه]‏ حيث يمكنك تغییرہ بالضغط 
على الزر عموسه,8 أو تركه كما هو - اضغط »عم فيظهر لك معلومات عن الترقية - اضغط هنا اوم۴ للبدء بعملية الترقية 
بعد الانتهاء تظهر لك نافذة تخبرك بانتهاء عملية الترقية وفيqا‏ خيlار  Show the conversion log when the wizard is‏ 
يها وبتفعيل هذا الخيار يظهر لك تقرير عن عملية التحويل بعد إغلاق المعالج هنا اضغط عوها٣‏ 

كما تجدر ملاحظة أن مشروعنا بعد التحويل حتى هذه النقطة مازال متوافقا مع بيئة تطوير ال2005 

من re۲ه‌ام×ع‏ nهutiام؟‏ انقر بزر الفأرة اليساري نقرا مزدوجا على اءعزه۴ 0y‏ لفتح خصائصه 

افتح صفحة ءاام ٢ه‏ وقم بضبط الخيار |١۴٠١‏ هام0 إلى 0۸ الذي يخبر المعالج أن يستدل على نوع المتغيرات المحلية من 
التعبير الذي يضبط قيمة ذلك المتغير إن لم نزوده بنوع ذلك المتغير - ولمزيد من المعلومات حول هذا الخيار يمكنك قراءة 
موضوعي في المنتدى بعنوان الاستدلال المحلي عل illوع Local Type |nference‏ 

انتقل لأسفل صفحة مامص هع ثم اضغط الزر هام0 ماامصmهC‏ dععمvaلA‏ الذي يظهر لنا صندوق حوار بخيارات الترجمة 
المتقدمة حيث نرى في أسفل هذه النافذة الخيار )امس عص هr؟‏ tمعar٣‏ والذي مازال مضبوطا على ال 2.0 )0۲ eW‏ هم۴ حتى 
الآن حيث يمكننا هذا الخيار من كتابة كود يعمل على أي نسخة من نسخ الفريموورك الموجودة ضمن بيئة تطوير واحدة فبدلا من 
تنصيب عدة نسخ من دالںا؟ اهuء۷‏ على نفس الجهاز بهدف العمل مع أكثر من )امس ع ”ه۴ أصبح الآن بإمكانك عمل ذلك 
من داخل بيئة تطوير واحدة هي 2008 ومن أجل تمکین ٩٣ا‏ سنختار 3.5 ٣٥W ٥۲k‏ ھ٣۴‏ ثم اضغط على )0 فیظهر لنا تحذير 
بأنه سيتم إغلاق وفتح المشروع تلقائيا وأنه سيقوم بحفظ أية تغييرات غير محفوظة تلقائيا وهنا اضغط ءم۷ 

انقر بزر الفأرة اليساري نقرا مزدوجا على اععزه۴۲ ۷y‏ لفتح خصائصه وانتقل للصفحة ءع R۴٣٠"‏ فنلاحظ أنه قد تم إضافة 
مرجعا تلقائيا للمكتبة |اك.e٣0ء."ء†ءرء‏ من ال 3.5 Framework‏ للمشروع وذلك iÎJن|‏ قnنl‏ بترقıة Target Framework‏ 
ومن أجل تمكين استعلامات وما علينا إضافة بعض المراجع واستيراد بعض مجالات الأسماء اعتمادا على مزود وما الذي 
نحتاج لاستخدامه 

فمن أجل إضافة مرجع ل اءعزط0 ها وما نختار من القائمة أسفل sعءaمءعم"صهN‏ tاoمص|‏ المجال و1ا.عtءرك‏ الذي يمكننا 
من كتابة استعلامات وأا على الأغراض المختلفة حيث أصبح بإمكاننا كتابة الاستعلام التالي للحصول على أسماء الملفات في 
المجك الحالى 


Dim MyFiles = From Files In My.Computer.FileSystem.GetFiles (CurDir () ) 
Select Files 


ونلاحظ أنه بسبب خاصية nferا 0ption‏ المضبوطة إلى م0 أن المترجم قد ضبط نوع المتغير MyFiles‏ إل 
IlEnumerable(Of‏ (ع٣‏ ٣اك‏ وذلك عند تمرير مشيرة الفأرة فوق المتغير ءعا¡y۴١‏ 


ومن أجل تمكين استعلامات ١ا‏ للاستعلام من ال وءاعءه†ه سنحتاج لبعض الإجراءات الإضافية وهنا افتح خصائص “× 
jectدمP‏ وعد للصفحة References‏ واضغط الزر 4 ومن صفحة tمم.‏ أضف مرجعا ل 
System.Data .DataSetExtensions‏ ثم اضغط OK‏ 

سنحتاج الآن لإعادة توليد ال tعءهه0‏ التي نريد استخدامها مع استعلامات وأا ولعمل ذلك ننقر بزر الفأرة اليميني على ال 
atasetط‏ المناسبة ثم نختار |امه۲آ ص۳هاوu٤ Run‏ من القائمة وهنا تقوم بيئة التطوير بإعادة كتابة كود ال اعءه†ه0 لتصبح 
الجداول ضمنها موروثة من فئة داعمة ل TypedTableBase Jمmست Linq‏ وھذا الذي يستدعي الحاجة لإضافة مجال الأسماء 
tem.Data.DataSetExtensionsءرك‏ وأصبح بإمكاننا الآن كتابة استعلامات من ال مهاه مثل الاستعلام 


Dim MyCats = From category In Me.CategoryProductDataSet.Categories _ 
Where cateğory.CategoryName Like "CT | 
Select category 


ونلاحظ هنا أيضا أن المترجم قد ضبط نوع المتغير ۷‰ بناء على جملة الاستعلام المرتبطة به تلقائيا إلى 


EnumerableRowCollection 
في خصائص اءعزه ۷۲۲" واضغط الزر ل۸0 وأضف مرجعا‎ R٠۴٠٣٠ ولكتابة استعلامات ۷1× ها ۹ا عد إلى صفحة وع"‎ 
حتی نتمکن من کتابة‎ Syste ۳.×۳۱.ا1٣٩ وقم باختیار‎ اصpمorted‎ na" esمacمsو تم انتقل إلى القائمة‎ System .Xmا|.اing‎ 

استعلامات من 11× 
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کمایوجد مزود آخر ربما نرید استخدامه وهو مزود اې؟ ٥ا ٣٩‏ أا حيث يمكن إضافته بسهولة فقط قم بlختيlر Add New Item‏ 
من قائمة Project‏ وقم بإاضافة Linq to Sql Classes‏ وهذا سيقوم تلقائيا باضافة المراجع والاستيرادات المناسبة لمشروعنا حيث 
سنلاحظ من صفحة ع٣ R٥۲٥‏ في خصائص †ء زہ۴۲ أنه قد تp‏ إضlفة‏ مرجla‏ آ System. Data.Linq‏ 


أصبح الآن بإمكاننا استخدام وما للاستعلام على الأغراض كاءعزط0 المختلفة في مشروعنا بالإضافة إلى الاستعلام من اعءهtه0‏ أو 
Sql Databse Jڌ> gİ XML‏ 
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Linq وأساسیات استعلامات‎ اinq‎ 0 Object 


باستخدام مزود اء عزط0 t0‏ ٩ا‏ يمكننا الاستعلام من أغراض دوت نيت المختلفة طالما هي تدعم الواجهة عاطة۲مصسںمع| أو الواجهة 
()eاerabصEnum‏ | فمتلا يمكننا كتابة استعلام للحصول على قائمة بالملفات الموجودة في المجلد الحالي 


Dim Files = From Fi In My.Computer.FileSystem.GetFiles (CurDir () ) 
Order By Fi 


نلاحظ بداية أننا عندما قمنا بالتصريح عن المتغير ءه٠|أ۴‏ في بداية الاستعلام لم نصرح عن نوع المتغير وذلك لأن المترجم هنا يستدل على 
نوعه من التعبير الذي يضبط قيمته وهنا أفترض أنك قد درست موضوعي بخصوص الاستدلال المحلي عن النوع وفي حالة الاستعلام 


السابق إن قمت بتمرير مؤشر الفأرة فوق المتغير ها۴ ستجد أن بيئة التطوير قامت بضبط نوعه إلى 
(Of String)‏ ing.!0rderedEnumeableا.temءرك‏ باستخدام الاستدلال المحلي على النوع ونبدأً بكتابة الاستعلام بالقسم ۴۲٥٣۳‏ حيث 
نحدد أنه لدينا متغير ۴ يحصل على قيمته من الكائن الذي يلي الكلمة "| وفي استعلامنا هنا 


My. c0mputer.۴ileSystem.GetFiles(CurDir())‏ حيث تجدر الملاحظة إلى أن استعلامات ٠ا‏ جميعها تكون سطرا واحدا في لغة 
فيجول بايزيك لذا من أجل التنسيق وقابلية القراءة والتعديل نقسم العبارة على عدة أسطر باستخدام محرف المتابعة _ ونريد هنا أن نخرج 
قائمة مرتبة بأسماء الملفات لذا نستخدم قسم 0١٥۲8۷‏ ليقوم بترتيب أسماء الملفات المعادة من الاستعلام وكي نظهر قائمة الملفات هذه في 
×180ءiا‏ نستخدم حلقة ١ع‏ هع ... ۴0۲ للدوران عبر عناصر المجموعة المعادة من الاستعلام بما أنها تحقق الواجهة lEnumerable‏ 
وإضافتها عنصرا عنصرا لمربع القائمة كما في المثال 


FOF Eaclt £ If Files 
Me.ListBox1.Items.Add (f) 


Next 
كما يمكننا استخدام الاستعلام ضمن استعلام آخر فللحصول على معلومات الملفات المعادة من الاستعلام السابق يمكننا كتابة الاستعلام التالي‎ 
GĞما۴¡|ع|,۴٥ بحسب القيمة المعادة من الدالة‎ ۴|١ "۴١ حيث يحدد القسم ع |م؟ أن النتيجة المعادة هي مجموعة من‎ 


Dim FInfo = From File In Files 


Select My.Computer.FileSystem.GetFilelnfo (File) 


ويمكننا إظهار نتيجة هذا الاستعلام في سا4۷ 6ه مباشرة وذلك بضبط قيمة الخاصية عءإuم؟5هخه‏ إلى نتيجة عائد الدالة واه 
الخاصة بمتغير الاستعلام ١٠۴٠ع‏ ان۴ كما في الكود 


Me.DataGridView1.DataSource = FInfo.ToList 


کما یمکننا استخدام قسم tععاعS‏ لتخصيص المعلومات المعادة من الاستعلام وبشکل مشابه لما کنا نفعله في عبارة S|‏ التي نستخدمها في 
استعلامات 501 فبدلا من إعادة كافة خصائص ۴0١٠ء۴‏ كما في الاستعلام السابق يمكننا كتابة استعلامنا لإظهار اسم الملف ووقت الإنشاء 
فقط كما في المتال 


Dim MyIinfo = From Fi IA Flnfo | 
Select Fi.Name, Fi.CreationTime 


كما يمكننا إعادة نتيجة هذا الاستعلام ضمن غرض من إنشائنا بدلا من النوع الذي يتم تحديده تلقائيا كنتيجة للاستعلام فإن كان لدينا فئة بسيطة 
باسم sھا¡M¥۴‏ تمتلك خاصیتین re20۸" ٥‏ من النوع غ02 و ٥صھN‏ من النوع "٣اك‏ يمكننا عندها إعادة كتابة استعلامنا بالشكل 


DI MyFLlLes: = Feo E1 IR FINfO _ 
Select New MyFiles() With {.Name = Fi.Name, .CreationTime = Fi.CreationTime} 


حيث سيعيد الاستعلام النتيجة كمجموعة M¥۴¡|e5(‏ le)O0fاEnumerab]‏ ويمكنك مراجعة موضوعي ۲۹عizاھ |i‏ ectز0bj‏ بخصوص 
ضيغ ريت ال عاو كن اش 


وإن أردنا تخصيص ناتج الاستعلام للحصول على الملفات التي تحمل الامتداد م×ع فقط مثلا نستخدم قسم ٠۲٠٣س‏ الذي يحدد شرط الانتقاء 
في جملة الاستعلام مستخدمين الطريقة 1 Wءلمع‏ لاختيار اسم الملف الذي ينتهي ب م×م. عندها يمكننا كتابة الاستعلام بالشكل التالي 


32 


Dim ExeFriles = From Fi In My.Computer.FileSystem.GetFiles (CurDir () ) 
Where Fi. EndsWItH (sexe) _ 
Select My.Computer.FileSystem.GetFilelnfo (Fi) 


وإن أردنا الحصول على مجموع حجوم الملفات من النوع »م يمكننا استخدام ناتج الاستعلام السابق في استعلام جديد 


Dim ExeSize = Aggregate FS Ih ExXeFiles: | 
Into Sum (Fs.Length) 


Me.TextBox1.Text = ExeSiz 


فھنا استخدمنا ماعا ععA‏ بدلا من ۴٣۵٣۳‏ في بداية الاستعلام عندما نريد استخدام الدالات التجميعية للحصول على نتائج تجميعية من 
الاستعلام ففي قسم |٥‏ استخدمنا الدالة ہں؟ للحصول على مجموع الحجوم 


إذا افترضنا أنه لدينا فئة باسم اعم هء م۴ تمتلك الخصائص ع Na”‏ و Birthdate‏ و Age‏ و )Zity‏ و aryاهS‏ وقمنا بإنشاء قائمة تحتوي 
على مجموعة عناصر تمتلك نوع هذه الفئات 


Dim Pers As New List (Of Personnel) 


وبافتراض أن هذه القائمة تحتوي على العديد من العناصر يمكننا كتابة مجموعة من الاستعلامات للحصول على معلومات مختلفة حول 
عناصر هذه القائمة فإن أردنا قائمة بالأشخاص الذين راتبهم أكثر من 10000 وأردنا في الناتج فقط الاسم والعمر والراتب وترتيب النتائج 
بحسب الراتب يمكننا كتابة الاستعلام كما يلي 


BIN PES. = FEO EB TIE PEELS. | 
Where p.Salary > 10000 _ 
OrQeE By p.Salary _ 
Select p.Name, p.Age, p.Salary 


وإن أردنا فقط الأشخاص الذين يقيمون في مدينة دمشق فقط سيصبح استعلامنا بالشكل 
DIM. EES =: FEM Bp: IM Pers |‏ 
Where p.Salafry > 10000 And p:CiEy = "Damascus" |‏ 


Order By p:Salaly _ 
Select p.Name, p.Age, pP.Salary 


وإذا أردنا الأشخاص في مدينتي دمشق وحماة الذين رواتبهم أكثر من 10000 يصبح استعلامنا كما يلي 


DIM PES Fito. p: Im. Pers 


Where p.Salary > 10000 5 
ANd. (P.CITEyY = DAMASCUS OF Gp. CILy = Hama”) 
ORHeE BY BSalary 


Select p.Name, p.Age, p.Salary, Pp.City 


وإن أردنا الحصول على مجموع رواتب الأشخاص المقيمين في حلب يمكننا كتابة الاستعلام 


DIM GES = AGOFEGSEE 6 TI Pers | 
WNHEEê piCITy = TALlLEDBO™ _ 
Into Sum (p.Salary) 


وإن أردنا الحصول على معلومات الشخص الذي يحصل على اعلى راتب 


DIM. pE = FEO p Im Pes | 
AogFEeEgate pa IM Bers | 
Into a = Max (pa.Salary) 
Where p.Salary = a _ 
Select Pp 
وإن أردنا معلومات من يحصل على أقل راتب في مدينة حلب‎ 
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DIR pF = FEO GB In PES | 
AGES pa TE. BEES 


WEEE Ba CITtYyY = TAIEDBO™ _ 

Into a = Min (pa.Salary) _ 

Where p.Salary = a And p.City = "Aleppo" _| 
Select Pp 


وبافتراض انه لدينا فئة ثانية باسم ءعطع "ه8 تمتلك الخصائص ع2۳١‏ ۸١ا8‏ و اا٣‏ وقمنا بإنشاء قائمة تحتوي على مجموعة عناصر 
من نوع هذه الفئات 


Dim Brnch As New List (Of Branches) 
يمكننا كتابة الاستعلام التالي للحصول على اسم الشخص والفروع المتوفرة في مدينته‎ 
Dim BrnPer = From pe In Pers 


Join br In Brnch On pe CItEy EOUSLS: BECI 
Select PersonName = pe.Name, BranchName = br.BranchName, pe.City 


حيث استخدمنا "مز لربط مجموعة الأشخاص مع مجموعة الفروع باستخدام المدينة ثم استخدمنا †عه|م؟ لتحديد الحقول المطلوب إخراجها 
في نتيجة الاستعلام 


الآن نريد إظهار قائمة بجميع الأشخاص مع الفروع المتوفرة لهم وبذلك سيصبح استعلامنا بالشكل 


Dim PreBrt = FFom pe In Bers _ 
GFOUD Nom BE Tî Btnch Of De. CIEy EBOUAlS GESCICY | 
IREG AVBE 3= GEO 
Select pe, AvBr 


في البداية اخترنا المتغير P٥‏ من قائمة الأشخاص Pers‏ ثم lږتخدIian Group Join‏ لربط هذه القائمة مع قائمة الفروع باستخدام حقل المدينة 
تم وضعنا ناتج الربط من القائمة الثانية في متغير ۸۷8۲ في قسم |٠٤٥‏ تم حددنا في قسم اعم |ع؟ النتائج التي نريدھا م۲ و AvB'r‏ 


ويمكننا إظهار ناتج الاستعلام في ×0 8ء[ باستخدام حلقتي ٤1‏ هع ... ۴٥۴‏ متداخلتان 


For Each a In PEeBE 
Me.ListBoxl.Items.Add(a.pe.Name &4 ": " & a.pe.City) 
For Each b In a.AvBr 
Me.ListBox1.Items.Add(".... " & b.BranchName) 
Next 
Next 


أو إذا أردنا استخدام سع 4۷ا6 ههد لإظهار النتائج سنحتاج إلى تحكمان سwع4۷iاا6هtه‏ 0 و تحكمان عurcمك5عinك8Bin‏ ولعمل ذلك في 
البداية سنعرف متغيرا على مستوى النموذج من النوع ۷اه ٥ء¡‏ حيث تكون المفاتيح هي الأشخاص والقيم هي الفروع كما يلي 


Private Gper As Dictionary (Of Personnel, IEnumerable (Of Branches) ) 


ثم نقوم بوضع ناتج الاستعلام في متغيرنا عم حیث نستخدم تعابیر لمدا - هل درست المواضيع المتعلقة بتعابير لمدا - لإضافة المفاتيح 
والقيم إليه كما في الكود 


Gper = PreBr.ToDictionary (Function (x) x.pe, Function (y) y¥.AvBr) 
ں50 ع" لہا8 مع تحكمات wع۷iلاا6ه†ه0 كما في الكود‎ r٥٥ ثم سنقوم بربط تحکمات‎ 


Me.DataGridView1l.DataSource = Me.BindingSourcel 
Me.DataGridView2.DataSource Me.BindingSource2 


ثم نقوم بضبط خاصية Dat 250 ure‏ ل Binding Source1‏ إلى قیم مفاتیح Gper‏ 
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Me.BindingSourcel.DataSource = Gper.Keys 


وبذلك يتم إظهار قيم المفاتيح في 1ء ۷1لا 6ه التي ستظهر قائمة الأشخاص ولإظهار قائمة الفروع المتوفرة لكل شخص في 
DataGridView 1‏ في 2 ata GridView‏ نقوم بمعالجة الحدث CurrentCha n ged‏ ل Binding Source1‏ باستخدام سطر الکود التالي 


Me.BindingSource2.DataSource = Gper (CType (Me.BindingSourcel1l.Current, Personnel) ) 


الذي يحصل على القيمة في ال ictionaryط‏ المقابلة للسجل الحالي في BindingSource1‏ وyضڊطl‏ ك J DataSource‏ 
Binding Source2‏ فيتم عرضها في ۷2ء4۷١۲‏ 6ه التي ستظهر قائمة الفروع المتوفرة لذلك الشخص عند النقر عليه في 
DataGridView1‏ 
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Linq To DataSet 


بافتراض أن قاعدة البيانات لاس ۲۸هل مثبتة في جهازك من نافذة ع۲ امك هاه في بيئة التطوير أضف مصدر بيانات جديد 
لمشروعك يتضمن الجدولين ءعأامعع†ة) و ءاعں لهم وباستخدام طريقة السحب والإفلات اسحب الجدول وعا٣م‏ عمج٤‏ إلى سطح النافذة 
الفارغ لإضافة سء ۷لا 26اه مع بعض التحكمات للنموذج تم من نافذة عع uمك5هاه0‏ وسع العقدة بجانب الجدول Categories‏ 
واسحب الجدول واعں ل ه۴ الذي بداخل الجدول ءعامعهه إلى سطح النافذة ليتم إنشاء سء 4۷1ا 6هه0 ثانية أسفل الأولى خاصة 
بالجدول اع ه۴۲ طبعا لن أقوم بشرح هذه العملية بتفصيل أكثر بما أنها برمجة قواعد بيانات ودورتنا تتحدث عن ول ,ا فإن واجھت 
مشكلة ابحث في القسم المناسب في المنتدى أو حاول رؤية فيديوهات ميكروسوفت التعليمية بخصوص هذه النقطة وقبل المتابعة يجب أن 
تتأكد أن مشروعك يعمل جيدا وأن ال سء ۷لا 6ه الثانية تعرض البيانات المقابلة لما تم اختياره من الأولى فقط. 


انتقل إلى محرر الكود للنموذج وقم بإنشاء إجراء معالجة نلنٹحدث CategoriesBindingSource pĞك>تll CurrentChanged‏ وللحصول 
فلن السظر الحالن تتكة الكرة الال 


Dim row As NorthwindDataSet.CategoriesRow 
row = CTyge (CType (Me. CategoriesBindingSource.Cürrenty, _ 
DataRowView) .Row, NorthwindDataSet.CategoriesRow) 


وللحصول على إجمالي قيمة البضائع في تلك الفئة والتي مازال إنتاجها مستمرا يمكننا كتابة الاستعلام 


Dim Total = Aggregate Product In NorthwindDataSet. Products _ 
Where Product.CategoryID = row.CategoryID _ 
AnNdALSO Product:.DIscontinied =: False | 
TIRES SUM(PEOQUCE, UNLEPELCe:. * Product. UnTESINSEOCKE) 


وبافتراض أنك متابع معي منذ البدء أصبحت تعرف طريقة الاستعلام فهنا استخدمنا مةعهععA‏ في بداية الاستعلام بما أننا نريد استخدام 
الدالات التجميعية للحصول على مجموع الكلفة الإجمالية للبضائع التي مازال إنتاجها مستمرا تم حددنا في قسم ۷٥۲٠١‏ الشرط بأننا نريد أن 
يتم تجميع المنتجات الموافقة للفئة المحددة Product.category|D = row.Category|ID‏ وأن انتاجھا ما زال مستمرا 

Product .Discontinued = False‏ ثم استخدمنا قسم 0| للحصول على الإجمالي المطلوب وذلك بتمرير جداء قيمة المنتج والعدد 
الموجود للدالة التجميعية ںك. ولإظهار نتيجة الاستعلام على النموذج ضع صندوق نصوص على التموذج واستخدم الكود التالي لوضع 
القيمة فيه الذي يستخدم الأمر ه۲٠۴‏ لتنسيق القيمة المعادة من الاستعلام بتنسيق عملة 


Me.TextBox1.Text = Format (Total, "c") 


لتنفيذ بعض التصفية على الفئات أضف تحكم صندوق نصوص وزر إلى شريط الأدوات الموجود في أعلى النموذج وفي إجراء حدث النقر 
على الزر أدخل الاستعلام التالي 
Dim SelCat = From Cat In Me.NorthwindDataSet.Categories‏ 


Where Cat.CategoryName. ToLower Lik M .ToolStripTextBox1.Text.ToLower E 
SELECT Cat 


Me.CategoriesBindingSource.DataSource = SelCat.AsDataView 


حيث قمنا باستخدام »)أ1 في قسم ۷٣٠۲٠‏ لتصفية النتائج المعادة من الاستعلام تماما كما نفعل في استعلامات قواعد البيانات ثم نقوم بضبط 
خاصية CategoriesBindingSource 1 DataSource‏ لكي يظهر لنا نتائج الاستعلام حيث أن الطريقة AsDataView‏ الخاصة 
بالاستعلام تعيد غرض 0a2 ۷1ew‏ داعم ذ Linq to DataSet مںعتwl Jû Linq‏ 


دعنا نجري بعض الاستعلامات الأخرى وسع نافذة مشروعك قليلا وأضف wWء26۲14۷iة0‏ وزر أوامر جديدان عليها ثم سنستخدم كودنا 
السابق الذي يحصل على متغير يحمل السجل الحالي في ce‏ uهك؟ع”iك8inءieمCatego‏ للحصول على معلومات السجل الحالي الذي تم 
اختياره في 236۲|4۷ †22ءءiءمعمCat‏ وذلك في بداية إجراء معالجة الحدث ءا لزر الأوامر 
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Dim row As NorthwindDataSet.CategoriesRow 
EOW = CType(CType (Me. CategorlesBindinGSOUrce.CUEFEERNE,  _ 
DataRowView) .Row, NorthwindDataSet.CategoriesRow) 


الآن يمكننا كتابة الاستعلام التالي للحصول على قائمة بالمنتجات التي مازالت قيد الإنتاج مع السعر الإجمالي للموجود منها حاليا وإظهار 
النتيجة في W1ء6|4۷iه†ه0‏ والتي من الفئة التي تم اختيارها من الشبكة الخاصة بالفئات 


Dim Prods = From pr In NorthwindDataSet. Products _ 
Where pr.CategoryID = row.CategoryID _ 
And pr.Discontinued = False _| 
SELE PE-EFEFOQdUGENaAmMEe, ‘BE: URLEPELEe 
pr.UnitsInStock, Total = (pr.UnitPrice * pr.UnitsInStock) 


Me.DataGridView1.DataSource = Prods.ToList 


أضف ثلاث صناديق نصوص إلى النافذة حيث سنقوم بإنشاء استعلام جديد لحساب متوسط سعر الوحدات الموجودة ومجموع الكميات والقيمة 
الإجمالية وذلك من أجل نفس الفئة التي أظهرنا نتائجها في الاستعلام السابق 


Dim ProdSums = Aggregate pr In NorthwindDataSet. Products _ 
Where pr.CategorylIlD = row.CategoryID _ 
And pr.Discontinued = False _ 
Into UntiSum = Sum (pr.UnitsInStock), PriceAvg = Average (pr.UnitPrice), _ 
TotalValue = Sum (pr.UnitPrice * pr.UnitsInStock) 


Me.TextBox2.Text = ProdSums. PriceAvg.ToString ("#,###.00") 
Me.TextBox3.Text = ProdSums.UntiSum 
Me.TextBox4.Text = ProdSums.TotalValue 


لاحظ أن طريقة كتابة استعلامات ٩٠ا‏ قريبة جدا من طريقة كتابة استعلامات ءءاعء في ا5۵ مع بعض الاختلاف في الترتيب وأن صيغة 
هذه الاستعلامات متشابهة مهما اختلف مزود 11٠‏ الذي نتعامل معه حيث يمكننا استخدام الأشكال المختلفة للاستعلام التي وردت في الدرس 
السابق المتعلق ب ءعزطا0 ه† وا هنا أيضا عندما يتعلق الأمر ب اعءه†ة٥‏ ه† وا وفي الدروس المستقبلية عندما نتحدث عن ه0 4٣ا‏ 
Linq to Sql gs xml‏ 
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Lambda Expressions مlڏختwا‎ ga Linq To DataSet JE مثال عملي‎ 


الهدف من المثال 


.١‏ حفظ بيانات م5ه†ه0 في ملف |ام × واستعادتها منه والتعامل معها بدون الحاجة لوجود قاعدة بيانات 
۲. الاستعلام من ال 5ه باستخدام أا ومن أكثر من جدول وإدخال بعض الحسابات في جملة الاستعلام واستخدام عبارة 
مەل لمنع التكرار الخاطى للبيانات 

۳. استخدام وہم‌اووعام×ع هلطم ه1 للقيام بالحسابات من أجلنا والاستفادة من ميزة رفع المتغيرات 

.٤‏ إظهار نتيجة استعلام ١ا‏ في wWع‏ 4۷ا6 ه0 مباشرة 
من أجل ترك الموضوع عام وبما أن مجموعة البيانات t€‏ يمكن ربطها مع أي قاعدة بيانات سأقوم بالعمل على مجموعة 
بيانات غير مربوطة مع قاعدة بيانات حيث يمكنك تطبيق الأفكار الواردة هنا على أي قاعدة بيانات يمكن ربطها مع أي اع5هاة0 وسيكون 
مثالي الذي سنسير عليه هنا معتمد على خدمة مصرفية تدعى بالودائع لأجل 


افتح أي إصدار من فيجول ستوديو 2008 وأنشئ مشروعا جدیدا من نوع ۸٥0ااicaاApp Windows Forms‏ ثم من قائمة ctعزمPr‏ اختر 
الأمر صmع†ا Add New‏ وأضف ام5هاه0 للمشروع وقم بتسميتها ام5ة†ة ۷0 تم في محرر التصميم الرسومي لمجموعة البيانات انقر 
بزر الفأرة اليميني واختر الأمر عاطةه†ه0 من قائمة لل في قائمة السياق ثم قم بإعادة تسمیته لیصبح اسمھ ٣٤١۹‏ ٥اوں٤‏ ثم أضف 
للجدول ١٣ع‏ ٥وںع‏ الحقول التالية مع الخصائص الموضحة بجانب كل منها 


الحفقل 5| انئخاصية AutolncrementSeed jlتيصlخlls True aمnيقllب Autolncre ment‏ ڪ ncrementstepاAuto‏ کلتاھما إڵى 
القيمة 1 و نوع البيانات ۲32,|.عtءر؟‏ ثم انقر بزر الفأرة اليميني على الحقل 0| واختر الأمر رع× راصام" tمك‏ من قائمة السياق 
لتحديد الحقل كمفتاح أساسي 


25 نوع البیانات ۽¬System.Stri و engthاMax بالقیمة‎ CustomerN ame الحقل‎ 
MaxLength 25 y System.String ٽliloll‎ zgi CurrentAccountNumber Jتحنl‎ 


حيث أن الحقل ۱0| هو معرف الزبون و ٤us†٥ ٥۲۸2۳٤‏ هو اسم الزبون والحقل Current Account N umber‏ هو رقم الحساب 
الجاري لدى المصرف 


أضف جدول آخر لمجموعة البيانات باسم aةع‏ ةله وأضف له الحقول التالية مع الخصائص الموضحة بجانب كل منها 
اJحJa String ٽlنlڊ عgiڊ WadeaaNumber‏ 

الحقل ٥۱٣٥ص٥‏ stںC‏ بنوع بیانات ۱۸۲32 

الحقل |nteres1۸ 2t٥‏ بنوع بيانات |aصeciمD‏ و Value‏ |ااNu‏ مساوية ل 7.5 

الحقل WadeeaP er٥‏ بنوع بيانات 16†¬| و Value‏ |اBu‏ مساوية ل 3 

الحقل عStartDat‏ بنوع ڊlıنlٽ DateTime‏ 

الحقل † Wadeaa Amour‏ بنوع بیانات 32| و ueاVa|اNu‏ بقیمة 10000 


حیث Wadeaa Number‏ هو رقم الودیعة و ٣٤۲۱0‏ ٥tایںC‏ ھو حقل مرتبط بجدول الزبائن و !nterestRate‏ نسبة الفائدة و 
WadeeaPeriod‏ فترة الوديعة بالأشهر و مه2 t2۲‏ تاريخ فتح الوديعة و A" هu ٣‏ هع Wad‏ قيمة الوديعة 


سنضيف الآن علاقة بين الجدولين: انقر بزر الفأرة اليمني على الجدول ءامص ہیں ومن القائمة الفرعية ل۸۵ اختر ٥۸‏ ام8 ثم اضبط 
Key Columns رتëخا pۃî Wadaeaa gl! Child Table sy Customers gl! Parent Table‏ ليضم llحقJ‏ 5| خق¡ط و Foreign Key‏ 
Columns‏ ليضم الحaقJ Custo me r|5‏ فط pi‏ |ختر خر Both Relations And Foreign Key Constraint‏ ثم اضغط )0 من أجل 
حفظ العلاقة ثم اختر الأمر اا۸ مه6 من القائمة مان۴ 
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انتقل إلى محرر النماذج الخاص ب ۴٥۲۳1‏ واجعل مساحة ۴٠۲"1‏ كبيرة كفاية لتتسع ل 2 × سع ۷لا 6اه مع شريط أدوات وبعض 
التحكمات الأخری التي سنضیفھا لاحقا ثم انتقل لنافذة وعcاںہم؟‏ واھ واسحب الجدول ۶٣ع‏ ہیں ثم القھ علی سطح ۴٥۲٣1‏ فیتم 
إضافة Wع 060۷i‏ و شريط أدوات للنافذة 


من نافذة ءععاںه؟ هه انقر إشارة + بجانب الجدول ك۲ع"٥وںع‏ لتظهر لك قائمة بالحقول الخاصة به كما نلاحظ وجود نسخة من 
الجدول 2aعةلةW۷‏ كجدول فرعي ضمن ك١۲٥ ٣‏ 0ءںع وذلك بسبب العلاقة التي قمنا بإنشائها بين الجدولين الآن قم بسحب الجدول 
Wade‏ الموجود کجدول فرعي ل ٣٥۲۶‏ ٥†ءںع‏ وليس الجدول الخارجي إلى سطح ۴٥۲٣1‏ ليتم إنشاء سا4۷ 6هه0 أخرى على 
النافذة ثم قم بتنسيق النافذة بشكل جيد وتأكد من أن ال سwع۷iلاا6‏ 2ه الخاصة ب ءامص هاو في الأعلى و الأخرى في الأسفل 


اختر Customers Dat a64۷1 w‏ وانقر على السهم الصغير الذي يظهر في زاويتها اليمينية العلیا واختر الأمر sہصںاه‏ اع واضبط 
الخاصية عاطاوءا۷ للحقل ۱١‏ إلى عءاه۴ تم كرر العملية بالنسبة لنلحقJ Customer|D‏ في WadaeaaDataGridView‏ 


في شريط الأدوات في الأعلى انقر بزر الفأرة اليميني على زر الحفظ - يمتلك أيقونة قرص - واختر الأمر 4ء اطهمع لتفعيله ثم انقر عليه 
نقرا مزدوجا لننتقل إلى محرر الكود تم أدخل الكود التالي في حدث النقر على زر الحفظ حيث نستخدم الوظيفة Writ eX‏ لتخزین 
محتويات مجمو عة البيانات في ملف إ× 


TEY 

MyDataSet.WriteXml ("d:\TestData.xml") 
Catch ex As Exception 

MsgBox (ex.Message) 
End. TEY 


أنشئ إجراء لمعالجة الحدث هم1 للنموذج وأدخل فيه الكود التالي الذي سيقوم بتحميل البيانات من ملف اص× لاحظ ظهور رسالة خطأً عند 
تشغيل البرنامج لأول مرة وقبل حفظ البيانات حيث أن ملف البيانات لم يتم إنشاؤه بعد وهذا السبب في استخدام بلوك ۸ه ... ۲٣,‏ من أجل 
اصطياد الخطاً وتجنب إفشال عملية بدء البرنامج وقد استخدمنا الوظيفة 0×١‏ هءR‏ لتحميل البيانات من ملف ا × إلى مجموعة البيانات 


TEY 
MyDataSet.Clear () 
MyDataSet. ReadXml ("d:\TestData.xml") 
Catch ex As Exception 
MsgBox (ex.Message) 
End Try 


شغل البرنامج وأدخل فيه بعض البيانات في كلا ال سعا۷ ١‏ 6ه وتأكد من أنك قد قمت بتعبئة جميع الحقول في كلتا شبكتي البيانات 

وانتبه إلى أن الحقل لها م٣‏ ةع ع ل ة۷ هو عبارة عن عدد أشهر فترة الوديعة لذا حاول الالتزام بالقيم 1 أو 3 أو 6 أو 12 كقيمة لهذا الحقل 
من أجل تجربة إجرائية الاحتساب لاحقا وقم بالحفظ وأغلق البرنامج ثم عد فتحه من جديد للتأكد من أن عملية الحفظ قد تمت بشكل صحيح 
لاحظ عدم ظهور رسالة الخطا التي ظهرت عند فتح البرنامج لأول مرة بعد أن أدخلنا بيانات وقمنا بحفظها عند تشغيل البرنامج للمرة الثانية 


ذرید الآن إظهار قيم الاحتسابات الخاصة بكل وديعة عند المرور عليها وكذلك تاريخ استحقاق هذه الوديعة 


أضف أربعة حقول نصية للنافذة ورتبها أسفل شبکتي البيانات وأعطها الأمتماغ llتlلıة txtEnd Date‏ لتاريخ الاستحقاق و كاعم |†»×ع لقيمة 
الفائدة ٿڪ txtRayaa‏ لضريية الريع و ٣a‏ ةل|ا†»×ا لضريبة الإدارة المحلية ثم انتقل لمحرر الكود وأضف الاستيراد التالي في بداية ملف الكود 
الخاص ب ۴٠۲1‏ من أجل تمكيننا من استخدام الوظائف الموجودة في مجال الأسماء إNat‏ 


Imports ma = System.Math 


ثم أضف الإجراء التالي كإجرائية للاحتساب وهنا أرجو أن تكون قد تابعت دروسي المتعلقة ب ء٣0‏ اووم۲م×ع ماص ها1 لأنها الأساس في 
إجرائية الاحتساب 


Private Sub DisplayWaeaaCalcs (ByVal Amount As Integer, ByVal StartDate As Date, _ 
ByVal EndDate As Date, ByVal Interest As Decimal) 


Dim DaysNum = DateDiff (DateInterval.Day, StartDate, EndDate) 
Dim Rayaa As Decimal 


Function (Intrst As Decimal) ma.Ceiling (Intrst * 7.5 / 100) 
Function () ma.Ceiling (Rayaa * 10 / 100) 


Dim Rayya_ Calc 
Dim Idara Calc 
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Dim Intrst Calc = Funetlön() _ 
ma.Ceiling (Amount * DaysNum * Interest / 36500) 


Dim Intr = Intrst_Calê() 
Rayaa = Rayya Calc (Intr) 
Dim Ida = Idara Calc() 


Me.txtEndDate.Text = EndDate.ToString ("dd/MM/yyyy") 
Me.txtInterest.Text = Intr.ToString ("#,###.00") 
Me.txtRayaa.Text = Rayaa.ToString ("#,###.00") 
Me.txtIdara.Text Ida.ToString ("#, ###.00") 

End Sub 


حيث استخدمنا في البداية الدالة 0۴۴ع ة0 للحصول على عدد أيام الفترة التي سنقوم بالاحتساب عنها وكنا قد مررنا قيم المبلغ و تاريخ 
البداية وتاريخ النهاية ونسبة الفائدة كمحددات لإجرائية الاحتساب ثم عرفنا تعبير لمدا يقوم باحتساب قيمة ضريبة الريع cاة٣_۷2لهR‏ بناء 
على مبلغ الفائدة الممررة له وفي تعبير لمدا والضريية الأخرى لم نمرر لها قيمة ولكنها استخدمت متغير محلي من أجل الاحتساب وهنا 
أنصحك بمراجعة قسم رفع المتغيرات في مواضيعي المتعلقة بتعابير لمدا إن لم تكن قد قرأته حتى الآن وتعبير لمدا الأخیر ع اھC٣_ntrst|‏ 
يستخدم أيضا خاصية رفع المتغيرات ولكنه هنا يستخدم المحددات الممررة للإجراء كمتغيرات مرفوعة ثم نقوم باستخدام هذه التعابير 
لكا ك تمر الل كي ماق لسرن الا 

من أجل أن نقوم باحتساب القيم الموافقة لكل وديعة عند المرور عليها سنقوم بعمل إجراء معالجة للحدث ١۴"٤||ه)‏ لكلا شبكتي البيانات 


بإجراء واحد - أدخل الكود التالي كإجراء لمعالجة الحدث ١ع†مع||م)‏ لكلا الشبكتين لاحظ ما بعد عبارة ءعالم ج في بداية تعريف جسم 
الإجراء وأيضا أنني لم أقم بتمرير أية محددات لإجراء معالجة الحدث حيث يمكنني فعل ذلك بما أنني متأكد من أنني لن أحتاج لاستخدامها 


Private Sub WadaeaaDataGridView CellEnter () _ 
Handles WadaeaaDataGridView.CellEnter, CustomersDataGridView.CellEnter 


TEY 

Dim EdDat = From a In MyDataSet.Wadaeaa _ 
Where a.CustomerID = Me.CustomersDataGridView.CurrentRow.Cells (0).Value _ 
And a.WadeaaNumber = Me.WadaeaaDataGridView.CurrentRow.Cells (0) .Value _ 
Select a.WadeaaNumber, a.WadeaaAmount, a.StartDate, _ 
mndDate = DateAdd (DateInterval.Month, a.WadeeaPeriod, a.StartDate), _ 
a.InterestRate 

If EdDat.Count > 0 Then 
DisplayWaeaaCalcs (EdDat.First.WadeaaAmount, EdDat.First.StartDate, _ 

EdDat.First.EndDate, EdDat.First. InterestRate) 
End Tf 


Catch ex As Exception 
Me.txtEndDate.Text = String. Empty 
Me.txtInterest.Text = String.Empty 
Me.txtRayaa. Text String. Empty 
Me.txtIdara.Text String. Empty 

ERI TEY 

End Süb 


في البداية قمنا بإنشاء استعلام ٠٠ا‏ للحصول على القيم الخاصة بالوديعة التي نقف عليها حيث أن المتغير ۾ هو كيان من الجدول 
Wadae22‏ ثم في قسم ۷۸٠۲١‏ ضبطنا الشرط بحيث يجلب الاستعلام فقط الودائع الخاصة بزبون معين عن طريق التأكد من أن قيمة 
الحقل ٣٥۲١0‏ هاوں مساوية لقيمة | الخاصة بالزبون من خلال قراءة قيمة الخلية المناسبة في السطر الحالي وتتمة للشرط وبنفس 
الطريقة قمنا بضبط الشرط كي يجلب الوديعة ذات الرقم المراد ثم يأتي قسم اءء|م؟ لنحدد فيه قائمة الحقول التي نريد الحصول عليها لاحظ 
وجود الحقل المحسوب مE.402‏ الذي يتم حساب قيمته من الحقول المعادة من الاستعلام باستخدام الوظيفة 4١۸0ء‏ ه0 التي تضيف فترة 
زمنية معينة حسب المحددات الممررة لها إلى تاريخ ممرر لها وتعيد قيمة التاريخ الجديد وتعاد قيمته مع قائمة الحقول التي يعيدها الاستعلام 
وبعد الاستعلام نتأكد من أنه قد جلب نتائج فعلا بالتحقق من قيمة الخاصية Cunt‏ ثم نستدعي الوظيفة sء|2٣22ع4/W2امء¡0‏ للقيام 
بالحسابات وإظهار النتائج 


شغل البرنامج ولاحظ ظهور قيم الاحتسابات في مربعات النصوص عند التنقل في كلا شبكتي البيانات إذا كانت لديك بيانات قمت بحفظها كما 
طلبت منك سابقا 


من أجل إظهار الودائع التي تبدأً بتاريخ معين وإظهارها أضف نموذج آخر للمشروع باسم ۴٥۲۳2‏ تم أضف wسع4۷iاا26ه0‏ له واضبط 
الخاصية )عم للقيمة ۴|١‏ لجعل شبكة البيانات تملا كامل مساحة النموذج ثم نسق النموذج بحيث يكون كبيرا كفاية لعرض البيانات الناتجة 
عن الاستعلام ثم أضف زرا للنموذج ۴٣٠١1‏ واجعل إجراء معالجة حدث النقر عليه يماثل الكود التالي 


Private Sub Buttonl Click() Handles Button1.Click 
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Dim d As Date = CDate (InputBox ("Enter Date") ) 
Dim Dawa = From a In MyDataSet.Wadaeaa _ 
Join B In MyDataSet.Customers On _ 
a.CustomerID Equals B.ID _ 
Where a.StartDate = d _ 
Select B.CustomerName, B.CurrentAccountNumber, _ 
a.WadeaaNumber, a.WadeaaAmount, a.WadeeaPeriod, a.StartDate, _ 
EndDate = DateAdd (DateInterval .Month, a.WadeeaPeriod, a.StartDate) 


Dim c As New Form2 
c.DataGridView1.DataSource = Dawa.TolList 
c.DataGridView1 .Update () 
c.ShowDialog () 

End Sub 


لاحظ أنني استخدمت ميزة جديدة في فيجول ستوديو تمكنني من حذف محددات إجراء معالجة حدث ما إن كنت على يقين أنني لن أحتاج 
لاستخدامها وفي جملة الاستعلام تلاحظ أنني استخدمت ١1هل‏ للربط بين الجداول عند عملية الاستعلام كي نتجنب مشكلة ظهور بيانات مكررة 
من أحد الجداول من أجل جميع سطور الجدول الآخر حيث استخدمنا نفس أسلوب العلاقة التي قمنا بإنشائها في البداية بين الجدولين من حيث 
ربط الحقل #٥۲۱0‏ "٥و‏ في الجدول aجعةل‏ ج۷ بالحقل |D‏ في الجدول ٣٤١‏ ٥اوںع‏ و استخدمنا في قسم ۷٣٥١٥‏ شرط لتصفیية نتائج 
الاستعلام بحيث نحصل على الودائع التي تبدأً بتاريخ معين ثم نستخدم عبارة ءام لتحديد الحقول التي نريد إظهار ها كنتائج للاستعلام 


ومن أجل إظهار النتائج في ۴٠٣2‏ قمنا بإنشاء متغير من نوع تلك النافذة ثم ضبطنا قيمة ع uںه5ه†ه‏ لشبكة البيانات الموجودة على ذلك 
اللموذع إلى اة العا من الاسكان متختدمين الطريفة ٠‏ اام رل الكت إلى قكل كن رار ي كك انات رمن 
الحصول على الودائع التي تنتهي بتاريخ معين يمكننا استخدام نفس الكود السابق بعد تعديل بسيط في قسم ۷٥۲۵e‏ بحیث يصبح الکود كما 
3 


Frivaté SUb: Bitton2 CIiek() Handles: BüUttoON2.CLIGk 

Dim d As Date = CDate (InputBox ("Enter Date") ) 

Dim Dawa = From a In MyDataSet.Wadaeaa _ 
Join B In MyDataSet.Customers On _ 
a.CustomerID Equals B.ID _ 
Where DateAdd (DateInterval .Month, a.WadeeaPeriod, a.StartDate) = d _ 
Select B.CustomerName, B.CurrentAccountNumber, a.WadeaaNumber, _ 
a.WadeaaAmount, a.WadeeaPeriod, a.StartDate, _ 
EndDate = DateAdd (DateInterval.Month, a.WadeeaPeriod, a.StartDate) 


Dim c As New Form2 
c.DataGridView1.DataSource = Dawa.ToList 
c.DataGridView1 .Update () 

c.ShowDialog () 


End Sub 
بين الإجراءين الأخيرين. هل يمكنك شرح عمل الإجراء الثاني بنفسك ؟؟؟؟‎ ۷٠١٠١ لاحظ الاختلاف في قسم‎ 


41 


Linq to XML مقدمة في‎ 


ا"× t0‏ وا هي واجهة برمجة |"× في الذاكرة تدعم وما تمكنك من العمل مع بيانات |م× المختلفة من داخل لغة برمجة ال أاعم. 
Framework‏ وهي مشابھة ل |عMod Object‏ ocumentط‏ واختصارا 00M‏ التي تضع ال |"× في الذاكرة حيث يمكنك الاستعلام من 
الوثيقة أو التعديل عليها ثم يمكنك حفظها أو إرسالها بعد التعديل ولكن تختلف |ا"ص× ها ١٠نا‏ عن 000M‏ في أنها تزود نموذج غرضي 
ا Mode‏ ectزط0‏ أخف وأسهل عند العمل عليه وهي تستفيد من تطويرات اللغة في ال2008 


وتكمن الميزة الأهم التي تقدمها ا× ه† هذا هي التكامل مع وما الذي يمكنك من كتابة استعلامات من وثيقة × في الذاكرة للحصول 
على مجموعة من العناصر والصفات التي تمتد لتشمل ۸ة٥×‏ و عن ۹× وتقدم لك ميزات إضافية مثل اكتشاف الأخطاء في وقت الترجمة 
ودعم أفضل للمدقق ععع طء0 إضافة إلى ترميز أقوى وإمكانية استخدام نتائج الاستعلامات کوسlئط‏ lبlنيlٽ Xattribute Î XElement‏ 
توفر طريقة سهلة لإنشاء أشجار اص× وهي تدعى Constr u†ا0 n‏ اFunctiona‏ التي تمكن المطورين بسهولة من تحويل أشجار اص× 
بسهولة من شكل إلى آخر. 


وتمكنك إمكانيات أا في ا"× ٥‏ ٩٣نا‏ من كتابة استعلامات من ا"× فقد يكون لديك ملف | × يمثل طلب مشتريات كالتالي 


PurchaseOrder.xml 


<?xml version="1.0"?> 
<PurchaseOrder PurchaseOrderNumber="99503" OrderDate="1999-10-20"> 
<Address Type="Shipping"> 
<Name>Ellen Adams</Name> 
<Street>123 Maple Street</Street> 
<City>Mill Valley</City> 
<State>CA</State> 
CAIDSTOIIIEZELB> 
SCOUREEYZUSACZCOUREEY> 
</Address> 
<Address Type="Billing"> 
<Name>Tai Yee</Name> 
<Street>8 Oak Avenue</Street> 
KELE OLd TOWAS/CLEYS 
<Staté>PA</State> 
KIDS ISELISZELBS 
<COUREEY>USASJCOUREEY> 
</Address> 
<DeliveryNotes>Please leave packages in shed by driveway.</DeliveryNotes> 
<Items> 
<Item PartNumber="872-AA"> 
<ProductName>Lawnmower</ProductName> 
GOUERELE YZ LEZOUARELE Y> 
<USPrice>148.95</USPrice> 
<Comment>Confirm this is electric</Comment> 
</Item> 
<Item PartNumber=" 92 6-AA"> 
<ProductName>Baby Monitor</ProductName> 
<OuUaRNE LEY 2</OUaRNELEY> 
<USPrice>39. 98</USPrice> 
<ShipDate>1999-05-21</ShipDate> 
</Item> 
</Items> 
</PurchaseOrder> 


فباستخدام ×١‏ ه† ٩٣ا‏ يمكنك تشغيل استعلام للحصول على القيمة المقابلة للصفة عاص ں ل۴2۲ من أجل كل عنصر في طلب المشتريات 


Dim purchaseOrder As XElement = XElement.Load("PurchaseOrder.xml", LoadOptions.SetBaseUri 
Or LoadOptions.SetLineInfo) 


Dim partNos = 


From item In PUEERNASEOEIAEE. STEERS 
Select item. GPartNumber 


وقد تريد الحصول على قائمة مرتبة باستخدام ١عطصuںل‏ ۲ج۴ بالعناصر التي تحمل القيمة أكثر من 100 وللحصول على هذه المعلومات 
يمكننا كتابة الاستعلام 
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Dim Ba FENoS | 
From  LEem: In. BUEGHaSEOEFdeE..7STtem>. _ 
WEE. (ELEM SOURCES Vale | 
LEM. SUSPELEES VALUE) > LOO. _ 
Orde# By itéom:<PaãEtNumber>.Valüe _ 
Select. item 


وباستخدام ا"× ها "أا يمكنك عمل العديد من الأشياء كتحميل ملف من القرص أو تخزين ملف إلى القرص أو إنشاء بيانات اص»× من 
الصفر أو الاستعلام باستخدام 1اةم× أو حتى التعامل مع أشجار |" × من حيث الإضافة والحذف والتعديل والتأكد من صحة أشجار × 
باستخدام 50× أو استخدام مجموعة مما ورد هنا لتحويل أشجار ا× من شكل إلى آخر 


وهناك طريقتان لإنشاء أشجار ا"× في اوج8 اهںء۷ إما بتعريف |ص× مباشرة في الكود أو باستخدام ءا۴٣۸‏ وا لإنشاء الشجرة وكلتا 
الطريقتين تمكنان الكود من عكس بنية ا»× شجرية كاملة فالكود التالي مثلا ينشئ عنصر ا٣×‏ 


Dim contact1 As XElement = _| 
<EORNEECE> 
<name>Patrick Hines</name> 
<phone type="home">206-555-0144</phone> 
<phone type="work">425-555-0145</phone> 
ZEEE 


ويقدم فيجول بايزيك عدة خصائص للتنقل عبر بنية ا× والتي تمكنك من الوصول إلى عناصر وصفات × عن طريق تحديد اسم عنصر 
اص× الابن أو يمكنك استدعاء طرائق ها لتحديد العناصر الأبناء لعنصر ا× فالكود التالي متلا يستخدم خصائص ا× للإشارة إلى 
الصفات والعناصر الأبناء لعنصر |ا"× مستخدما استعلام أ1 للحصول على العناصر الأبناء وإخراجهم كعنصر × 


' Place Imports statements at the top of your program. 
Imports <xmlns:ns="http: //SomeNamespace"> 


Module Samplel 
Sub SampleTransform() 
' Create test by using a global XML namespace prefix. 


Dim contact = | 
SRS EOREECES 
<ns:name>Patrick Hines</ns:name> 
<ns:phone ns:type="home">206-555-0144</ns:phone> 
<ns:phone ns:type="work">425-555-0145</ns:phone> 
</RSCEORNEAEES 
Dim phoneTypes = _ 
<phoneTypes> 
<%= From phone In contact.<ns:phone> | 
Select <type><%= phone.@ns:type $%></type> _ 
> 
</phoneTypes> 


Console.WritelLine (phoneTypes) 
End Sub 


End Module 


ويمكنك اوج8 اهںء۷ من تحديد اسم مستعار وها لمجال أسماء |"× باستخدام عبارة وهم "| كما في الكود التالي الذي يرينا كيف 
يمكننا استخدام العبارة ئ٤امم‏ "| لاستيراد مجال أسماء 01× 


Imports <xmlns:ns="http://someNamespace"> 


حيث يمكنك استخدام هذا الاسم المستعار للوصول إلى خصائص | × ولتحديد محارف ا× من أجل وثيقة وعناصر ا"× ويمكننا الحصول 
على غرض ععهمءع"ه× من أجل أي بادئة مجال أسماء باستخدام المعامل ععةمءع" هt×Xm|Naه‏ كما في المثال 


' Place Imports statements at the top of your program. 
Imports <xmlns:ns="http://SomeNamespace"> 


Module GetXxml1NamespaceSample 
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Sub RunSample () 
' Create test by using a global XML namespace prefix. 


Dim contact = | 
SHES NCONTACTEZ 
<ns:name>Patrick Hines</ns:name> 
<ns:phone ns:type="home">206-555-0144</ns:phone> 
<ns:phone ns:type="work">425-555-0145</ns:phone> 
YAS HEORNESCE> 


ShowName (contact.<ns :phone> (0) ) 
End Sub 


Sub ShowName (ByVal phone As XElement) 
Dim qualifiedName = GetXxmlNamespace (ns) + "contact" 
Dim contact = phone.Ancestors (qualifiedName) (0) 
Console.WriteLine ("Name: " & contact.<ns:name>.Value) 
End Sub 


End Module 
ويرينا المثال التالي كيفية إنشاء "ع۴× باستخدام مجال الأسماء العام وم‎ 


Dim contactl As XElement = | 
<S: CORNEAS 
<ns:name>Patrick Hines</ns:name> 
<ns:phone type="home">206-555-0144</ns:phone> 
<ns:phone type="work">425-555-0145</ns:phone> 
S/S EEOREAEES 


Console.WriteLine (contact1) 
ويقوم مترجم فيجول بايزيك بترجمة محارف |" × التي تحتوي الأسماء المستعارة لمجالات أسماء | × إلى الكود المكافئ الذي يستخدم‎ 
تدوين 1× المستخدم في تلك المجالات وباستخدام الصفة وما × عند الترجمة والكود السابق يولد نفس الكود التنفيذي الذي يولده الكود‎ 
التالي‎ 


Dim contact2 As XElement = _| 
<ns1:contact xmlns:ns1="http://someNamespace"> 
<ns1:name>Patrick Hines</ns1:name> 
<ns1:phone type="home">206-555-0144</ns1:phone> 
<ns1:phone type="work">425-555-0145</ns1:phone> 
RSL EORESCES 


Console.WritelLine (contact2) 


يمكن استخدام مجالات أسماء |ا× العامة مع خصائص |اص× كما في المثال التالي 


Console.WriteLine ("Contact name is: " & contact1.<ns:name>.Value) 
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بعض استخدlمlٽ Linq TO XML‏ 
يمكننا استخدام 1٠‏ لإنشاء وثائق ا× في فيجول بايزك انظر الكود التالي الذي يقوم بإنشاء وثيقة ا× تحتوي معلومات عن العمليات 


الجارية في النظام 

Dim xmlProc = <MyProcesses> 

From proc In System.Diagnostics.Process.GetProcesses() _‏ ا 

Select <process id= BpEOC:IQ 8> 
<name> proc.ProcessName §¥</name> 
<threads> proc.Threads.Count §E</threads> 
</process> 

</MyProcesses> 


My.Computer.FileSystem.WriteAl lText ("d:\temp\processes.xml", xmlProc.ToString, False) 
Process.Start ("d:\temp\processes.xml") 


حيیث أنشأنا العقدة MyProcesses‏ وأدخلنا فيها بداية الاستعلام فيها ثم في قسم et‌اeعء‏ أنشأنا العقد الفرعية وأدخانا بقية الاستعلام ليقوم 
بضبط قيم تلك العقد. كما يمكننا فيجول بايزيك من الحصول على معلومات عن العقد في وثيقة |" × بسهولة حيث نستخدم الكود التالي 
لإظهار معلومات من الوثيقة التي قمنا بإنشائها سابقا في ×80 1ءأا 


Dim xmlprocs1 = xmlProc...<process> 

For Each a In xmlprocs1 
Me.ListBoxl1.Items.Add(a.<name>.Value & " " & a.@id) 

Next 


أو يمكننا الحصول على نفس النتيجة السابقة باستخدام استعلامات »٠ا‏ للاستعلام من وثيقة ا"»× كما في الكود 


Dim xmlprocs1 = From pr In xmlProc...<process> _| 
Select pr.<name>.Value, pr.G@id 


FOE Each a Ih XMIpEOCST 


Me.ListBox1.Items.Add(a.name. & " " & a.id) 
Next 
حساس‎ xml وقد نذرید إنشاء وثيقة اص× كنتيجة لاستعلام من وثيقة موجودة سابقا على القرص ويجب الانتباه لئ أن الاستعلام من وثائق‎ 
لحالة الأحرف‎ 
Dim myCusts = XDocument. Load ("c:\MyCustomers. xml") 
Dim ukCustomers = <ukCustomers> 
E From cust In myCusts...<Customer> | 
WHEéEtêé cüst:<CoüUntryz>. Vale = RY | 
Select cust 
</ukCustomers> 


أو يمكننا كتابة استعلام مباشر من وثيقة ا× كما يلي 
Dim xmlPlant = XDocument. Load (CurDir() & "\plants.xml")‏ 
Dim qa = From p In xmlPlant...<PLANT>‏ 


Select name = p.<COMMON> .Value 
Order By name 


وقد نريد كتابة استعلام من ذلك الملف لنحصل على النباتات التي تكلف أكثر من 5 


FEOM B6 IR xXmMLIPLaANtE..<SBLANT> | 
Where CInt (p.<PRICE>.Value) > 5 _ 
Select name = p.<COMMON>.Value 


Dim Gb 


وقد نريد إنشاء وثيقة إكسل من استعلام اص× ٠٠١‏ ذا لذا افتح اعء×ع وادخل في الثلاث خلايا الأولى من السطر الأول الكلمات التالية 
بالتسلسل Country sy Phone s Name‏ ثم اجعل الخط سميكا ثم أدخل تحتها سطرا من البيانات التجريبة کي نستخدمه في تحدید القسم 
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الذي سنضع فيه بياناتنا لاحقا ثم احفظ الملف بصيغة عع اكهلجعامك XM‏ ثم قم بفتح الملف الذي أنشأته للتو بواسطة Notepad‏ وانسخ 
جميع محتوياته ثم عد إلى محرر الكود في بيئة التطوير واكتب = اععط؟ "01 ثم لصق بعدها محتويات الحافظة فيصبح لديك شيئا شبيها 
بالتالي 


Dim Sheet = <?xml version="1.0"?> 
<mMSO=appLicatlton 0 2 
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet™" 
xmlns:o="urn:schemas-microsoft-com:office:office™ 
xmlns:x="urn: schemas=-microsoft-com: office :excel"™ 
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"™ 
xmlns:html="http://www.w3.org/TR/REC-html40"> 
<DocumentProperties xmlns="urn: schemas-microsoft-com:office:office"™> 
<Author>SamerSelo</Author> 
<LastAuthor>SamerSelo</LastAuthor> 
<Created>2008-09-19T20:31:43Z2</Created> 
<Version>12.00</Version> 
</DocumentProperties> 
<ExcelWorkbook xmlns="urn: schemas-microsoft-com:office:excel"™> 
<WindowHeight>7140</WindowHeight> 
<WindowWidth>15255</WindowWidth> 
<WindowTopX>120</WindowTopX> 
<WindowTopY¥>150</WindowTopY> 
<ProtectStructure>False</ProtectStructure> 
<ProtectWindows>False</ProtectWindows> 
</ExcelWorkbook> 
<Styles> 
<Style: ss:ID="Defaült™" s6s5:Name="Normal"> 
<Alignment ss:Vertical="Bottom"/> 
<Borders/> 
<Font ss:FontName="Arial" x:CharSet="178" x:Family="Swiss" ss:Size="11" 
SS8:ColoE="#O00000"/ > 
<Interior/> 
<NumberFormat/> 
<Protection/> 
</Style> 
</Styles> 
<Wofksheéet ss:Name="isyرg1"‎ sS:RightToleft="1"> 
<Table ss:ExpandedColumnCount="3" ss:ExpandedRowCoünt="2" x:Fül1lColumns="1"™ 
x:FulLlRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> 
<Row> 
<Cell1><Data ss: Type="String">Name</Data></Cel1l> 
<Cel1l><Data ss:Type="String">Phone</Data></Cell> 
<Cell><Data ss:Type="String">Country</Data></Cell> 
</ROW> 
<Row> 
<Cell><Data ss:Type="String">Test</Data></Cell> 
<Cell><Data SS: Type="Nunber">123456</Data></Cell> 
<Cel1l><Data ss:Type="String">Syr</Data></Cell> 
</ROW> 
</Table> 
<WorksheetOptions xmlns="urn: schemas-microsoft-com:Ooffice:excel"> 
<PağeSétüp> 
<Header x:Margin="0.3"/> 
<FOOtEE K:Matgin="™0. 3"/> 
<PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/> 
</PageSetup> 
<Selected/> 
<DisplayRightToLeft/> 
<Panes> 
<Pane> 
<Number>3</Number> 
<ActiveRow>1</ActiveRow> 
<ActiveCol>2</ActiveCol> 
</Pane> 
</Panes> 
<ProtectObjects>False</ProtectObjects> 
<ProtectScenarios>False</ProtectScenarios> 
</WorksheetOptions> 
</Worksheet> 
<Worksheét ss5:Name="i3j g2" SS:RIGRtTOLEft="1"> 
<Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="1" x:FullColumns="1"™ 
x:FulLlRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> 
</Table> 
<WorksheetOptions xmlns="urn:schemas=-microsoft=-com: office :excel"> 
<PageSetup> 
<Header x:Margin="0.3"/> 
<FOOEEE K?Margin="0, 3"/> 
<FagéMaréins xX?BOSEESM=TO TIT HEEE" RFRIGRE=NOT™ TOBY > 
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</PageSetup> 
<DisplayRightToLeft/> 
<ProtectObjects>False</ProtectObjects> 
<ProtectScenarios>False</ProtectScenarios> 
</WorksheetOptions> 
</Worksheet> 
<Worksheet ss:Name="iã5رy3"‎ ss:RightToLleft="1"> 
<Table ss:ExpandedColumnCount="1" ss: ExpandedRowCount="1" x:FullColumns=™"1™ 
x:FulLlRows="1" ss:DefaultColumnWidth="54" ss:DefaultRowHeight="14.25"> 
</Table> 
<WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel"> 
<PageSetup> 
<Header x:Margin="0.3"/> 
<Footer x:Margin="0.3"/> 
<PageMargolins RiBOEEOME™O. T5" RiLEFE=TO. TT" KIRIGBE=™O T7" KITOp="O 5"> 
</PageSetup> 
<DisplayRightToLeft/> 
<ProtectObjects>False</ProtectObjects> 
<ProtectScenarios>False</ProtectScenarios> 
</WorksheetOptions> 
</Worksheet> 
</Workbook> 


نلاحظ في بداية وثيقة | × التي ألصقناها للتو وجود بعض مجالات الأسماء الخاصة ب ا"× في بدايتها وسنحتاج لاستيرادها في بداية كودنا 
لذا في قسم الاستيرادات في بداية الملف أدخل الاستيرادات التالية حتى تساعدنا في معرفة أسماء العناصر عند كتابة الاستعلام 


Imports <xmlns="urn:schemas-microsoft-com:office:spreadsheet"™> 
Imports <xmlns:o="urn: schemas-microsoft-com:office:office"™> 
Imports <xmlns:x="urn:schemas-microsoft-com:office:excel"> 
Imports <xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"™> 


من محرر الكود ابحث عن الجزء الذي يمتل البيانات التجريبية ثم قم بقصه وفي حالة مثالي سيكون 


<Row> 
<Cell><Data ss:Type="String">Test</Data></Cell> 
<Cell><Data ss:Type="Number">123456</Data></Cel1l> 
<Cell><Data ss:Type="String">Syr</Data></Cell> 
</Row> 


أدخل الآن الاستعلام التالي قبل المتغير ٠٥ء‏ الذي عرفناه سابقا حيث سنستخدم فيه قطعة النص المقصوصة لتشكيل شكل ناتج الاستعلام 


Dim Customers = From Customer In db.Customers _ 
Order By Customer.CompanyName _ 
Select <Row> 


<Cell><Data ss: Type="String"> Customer. CompanyName 3¥</Data></Ce1l1> 

<Cell><Data ss:Type=" String"> Customer. Phone </Data></Cel1> 

<Cel1l><Data ss:Type="String"> Customer .Country </Data></Cel1> 
</Row> 


ثم انتقل للمكان الذي قصصنا منه قطعة ×١|‏ سابقا وقم بإدخال السطر التالي في نفس المكان 


E Customers E 
انتقل إلى الأعلى قليلا وعدل السطر‎ 


<Table ss:ExpandedColumnCount="3" ss:ExpandedRowCount="2" x:FullColumns="1" 


إلى 


<Table ss:ExpandedColumnCount="™"3" ss :ExpandedRowCount=§3E Customers.Count + 1 33 #:FULICOLiMRS2T" 1" 


Sheet.Save ("d:\temp\customers11.xml") 
Process.Start ("d:\temp\customers11.xml") 
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0/R Designer ڍ‎ Linq to SQL JE تعرف‎ 


سنقوم هنا بإنشاء برنامج بسيط يعرض لذا كيفية استخدام ٥۴۲‏ عام 0/۸8 لإنشاء وعءوءها٣‏ tityمع‏ للتعامل المباشر مع قاعدة بيانات 
موجودة في 5٣۷٥١‏ ا50 وسأعتمد حاليا على قاعدة بيانات "٥۲۲۸۷1١4‏ الشهيرة التي يمكنك الحصول عليها بسهولة من موقع 
مايكروسوفت وتثبيتها لديك كما يتوجب عليك إنشاء اتصال لتلك القاعدة من داخل بيئة التطوير في نافذة Server Explorer‏ حتی یسھل علینا 
العمل على كل حال موضوع تركيب قاعدة البيانات وإنشاء الاتصال خارج عن مجال دورتنا وأفترض أنه لديك بعض الأساسيات التي 
تساعدك في التعامل مع هكذا أمور ويمكنك مراجعة مكتبة 050١‏ وبعض فيديوهات مايكروسوفت التعليمية إن احتجت لمساعدة في هذه 
الامور 


من ۵۲٣هام×ع‏ nهutiام؟‏ انقر بزر الفأرة اليميني على مشروعك ومن القائمة اختر ٥W‏ ك۸ ومن صندوق الحوار اختر ا5۵ ۲٥‏ ٩اا‏ 
sهءها‏ ثم قم بتسمية الفئة الجديدة |صطك. ك North Wİ‏ ثم اضغط ۸4 فيفتح لك واجهة إع,عاوم 0/۸ الفارغة وإن كانت مغلقة 
يمكنك النقر المزدو ج على |اصطه. N۲۸ W۸‏ من مستكشف الحل لفتحها 


وسع الاتصال الخاص بقاعدة llبيlنlٽ pû 0/R Designer ةهجlو ylإ| Customers Jgدجll mul, Server Explorer ja Northwind‏ 
قم بالحفظ وبعدها انتقل إلى نافذة وععuںم؟‏ ه0 اضغط New 0ata ؟مu ce‏ ۸44 فيفتح لك المعالج المألوف وفي حالتنا هذه سنختار 
زط0 بما أنه المناسب لعملنا هنا ثم نضغط »ع ثم وسع العقد في نافذة علج و|ختر pû Customer‏ ضط Finish pû Next‏ 


عد إلى محرر النماذج وقم بسحب الجدول  "۴١‏ 0اوںع من واجهة ءعءu۲م5هه‏ إلى سطح النافذة فيتم إنشاء شريط أدوات و 
ata GridView‏ من أجلك افتح السهم الصغير أعلى يمين wءi4۷iاData6G‏ واضبط ëllيlر Dock in parent Container‏ لجعل شبكة 
البيانات تملا كافة المساحة الفارغة في النموذج وكما تلاحظ هنا أن بيئة التطوير تسهل علينا الكثير من الأمور هنا من إنشاء للتحكمات 
والفئات والربط بينها مما يوفر علينا الكثير من العمل 


من أجل إظهار البيانات على النموذج سنحتاج لكتابة بعض الكود لذا انتقل لمحرر الكود الخاص بالنموذج وأنشئ معالج للحدث Load‏ 
للنموذج وقبل بداية تعريف الحدث لج ه] الخاص بالنموذج أدخل المتغير التالي بحيث يكون عاما على مستوى النموذج حيث أن المتغير اط 
هنا هو كيان من North Win 40a t20" †e×†‏ والتي تشكل اتصالنا الفعلي مع قاعدة البيانات بما أنها نقطة الدخول الرئيسية بالنسبة ل 4٣ا‏ 
To SQL‏ 


Private Db As New NorthWindDataContext 
في الحدث ١ه ه|] للنموذج سنضع استعلام 1 يزودنا بالبيانات التي سيتم إظهارها‎ 


Dim AllCustomers = From cust In Db.Customers 


Order By cust.CustomerID _‏ 
Select cust‏ 
هذا استعلام و٣‏ 1ا عادي كأي استعلام ذا قمنا باستخدامه منذ بداية الدورة حتى الآن كل ما علينا لإظهار البيانات هو ضبط قيمة الخاصية 
DataSource‏ ل CustomerBindingSourec‏ إلى استعلامنا ء۲عصt0ءuع||۸‏ أدخل السطر التالي مباشرة بعد الاستعلام ثم شغل 
البرنامج وتأكد من ظهور البيانات 


Me.CustomerBindingSource.DataSource = AllCustomers 


من أجل حفظ التعديلات التي ربما سنقوم بها إلى قاعدة البيانات عد إلى محرر النماذج واجعل زر الحفظ الموجود على شريط الأدوات 
e0اطهEn‏ ثم انقر عليه نقرا مزدوجا لإنشاء معالج لحدث النقر عليه والانتقال لمحرر الكود وأدخل الكود التالي الذي سيقوم بحفظ البيانات من 
أجلنا 


Me.Validate () 
Me.CustomerBindingSource.EndEdit () 


TEY 
Db.SubmitChanges () 
MsgBox ("Changes Saved") 
Catch ex As Exception 
MsgBox (ex.Message) 

BRA. TEY 


48 


حيث استخدمنا مةل اة۷. أولا لجعل جميع التحكمات على النموذج أن تتحقق من قيمها ثم استدعينا الطريقة ااك همع العائدة ل 
CustomerBinding Source‏ من أجل التأكد من أن جميع عمليات التحرير على البيانات قد تم إنهاؤها ثم استخدمنا الطريقة 

Submit changes‏ العائدة ل †×هt2C0ntهط‏ التي ستقوم بحفظ البيانات فعليا إلى قاعدة البيانات واستخدمنا بلوك ۸ھ ... و٣‏ من أجل 
التقاط أي خطأ ربما نصادفه أثناء عملية الحفظ ومع أننا استخدمنا الطريقة ءععة "1٤۸‏ طك هنا بدون محددات إلا أنه يمكن استخدامها 

بتمرير محدد وحيد من نوع التعداد م0 1ءاا؟مه» الذي يمتلك إحدی قیمیتین اءiا؟"ه‏ ٣ء0۴۲‏ |اه۴ التي توقف عملية تحديث البيانات 
إلى قاعدة البيانات عند حصول أول تضارب وهي القيمة الافتراضية و اءiا؟ ni ”u e00‏ وهي تتابع عملية الحفظ حتى لو حدثت 

تضاربات وتقوم بتجميع هذه التضاربات وتعيدها بعد انتهاء عملية تحديث البيانات إلى قاعدة البيانات 


يمكنك عند هذه النقطة تشغيل البرنامج والتأكد من أنك تستطيع إضافة وتعديل وحذف البيانات بدون أية مشاكل 


نريد الآن إضافة بعض التصفية على البيانات في النموذج ولهذا الغرض قم بإضافة صندوق نصوص وزر أوامر إلى شريط الأدوات في 
أعلى النموذج وانقر نقرا مزدوجا على الزر حتى ننتقل لمحرر الكود وفي إجراء معالجة حدث النقر عليه أدخل الآن الاستعلام التالي الذي 
أتبعناه بكود تحديث الخاصية CustomerBindingSource J DataSource‏ إلى الاستعلام الجدید لإظھار النتائج 


Dim CustNameQuery = From cust In Db.Customers _ 
Where cust.ContactName Like _ 
Me. ToolStripTextBoxl.Text & "*" | 
OrdEE By cCuUst:CüstomerID _ 
Select cüst 


Me.CustomerBindingSource.DataSource = CustNameQuery 


ملاحظة: أنا لا أقوم بشرح الاستعلامات هنا بافتراض أنك متابع ممتاز معي منذ البداية وأصبحت متآلفا مع صيغة وطريقة كتابة هذه 
الاستعلامات كما يمكنك كتابة أية استعلامات تريدها هنا وبأي شكل هنا تماما كما فعلنا في الدروس السابقة 
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Linq To Sql Master/Detail 


افتح مشروع فيجول بايزيك جديد وقم بإضافة وعءوها٣‏ اه5 ٠١‏ 1|۹ إليه تماما كما فعلنا في الدرس السابق وسمlq‏ lإWind.dbm North‏ 
تم من ۲٤٣0ام×ع‏ rمrvهS‏ وسع عقدة اتصال قاعدة البيانات 4ہ¡W‏ ٣ه"‏ وقم باختيار الجدولين ء۲مل0۲ و custome‏ وقم بسحبهھما 
معا إلى نافذة ٣ع"عاومD‏ 0/۸ الأمر الذي ينشئ فئتين من أجلنا الأولى تدعى ١ع"‏ 0ء و الثانية هل0۲ ونرى أن بيئة التطوير قامت 
بضبط العلاقة بينهما تلقائيا كما نلاحظ أن جميع خصائص كلتا الفئتين تماثل تماما الحقول الموجودة في الجدولين الموجودين في قاعدة 
البيانات قم بحفظ المشروع الآن قبل المتابعة 


انتقل إلى نافذة ومع uه؟‏ هغه0 واختر New 0a ؟مur ce‏ ل۸ واختر من الصفحة الأولى في المعالج أن النوع الذي نريد الاتصال به 
هو زط0 ثم اضغط ×" للانتقال للصفحة التالية من المعالج ثم وسع العقد وقم باختيار الجدول "٠١‏ 0ون فقط بدون اختيار الجدول 
Order‏ ثم اضغط »ع ثم وم۴ وستلاحظ في نافذة عمك هه أنه قد تم إدراج الفئة هون وتظهر الفئة ٣م0۲‏ ككائن 
فرعي منها ولهذا قمنا باختيار ٥ون‏ فقط في المعالج 


اسحب ٥٣‏ ماوںع إلى سطح النافذة ليتم إنشاء سwع 4۷i‏ 6هة0 على النافذة وشريط أدوات ٣هاهعااةل١ع”‏ هم81 في أعلى النافذة ثم قم 
بسحب و۲٥‏ ل0 إلى سطح النافذة لإنشاء ع4۷ 6ه أخرى أسفل الأولى 


انتقل إلى محرر الكود الخاص بالنموذج وقم بإنشاء إجراء لمعالجة حدث لإهها1 للنموذج وقبل تعريف الإجراء مباشرة قم بإدخال المتغير 
العام التالي على مستوى النموذج ليكون كيانا من †×ع† North Wind D0 a† a٣0"‏ والتي تشكل اتصالنا الفعلي مع قاعدة البيانات بما أنها نقطة 
الدخول الرئيسية بالنسبة ل اهS ٠١‏ ۹٣ا‏ 


Private Db As New NorthWindDataContext 
ولجعل البيانات تظهر في كلتا الشبكتين أدخل الكود التالي في إجراء الحدث هم1 للنموذج وقم بتجربة البرنامج‎ 
Me.CustomerBindingSource.DataSource = Db.Customers 
وعند تجربة البرنامج ستجد أن بيانات ء۲٥0۲ قد تم جلبها وهذا تقوم به من أجلنا ا١ك ه† ۹٣ا في الخلفية بسبب العلاقة الموجودة بين‎ 
عأوم0 0/۸ والذي يحدث فعليا هو أنك عندما تختار سجلا من‎ ٣٥١ الجدولين عندما أنشأنا وعءءها€ راع في بداية العمل بواسطة‎ 
يتولد تلقائيا استعلام يجلب بيانات ك۲عل0۲ المرتبطة بهذا السجل بموجب العلاقة بين الجدولين ويظهرها في شبكة البيانات‎ Cust on 


الثانية 


لكي نستطيع حفظ أية تعديلات أو إضافات نقوم بها على قاعدة البيانات عد إلى محرر النماذج واجعل زر الحفظ الموجود على الشريط في 
أعلى النموذج ١عاطةمع‏ وانقر عليه نقرا مزدوجا من أجل إنشاء إجراء معالجة لحدث النقر عليه والانتقال لمحرر الكود وسيكون كود الحفظ 
شبيها بالكود الذي استخدمناه في الدرس السابق 

Me.Validate () 


Me.OrdersBindingSource.EndEdit () 
Me.CustomerBindingSource.EndEdit () 


TEY 
Me.Db.SubmitChanges () 
MsgBox ("Changes Saved.") 
Catch ex As Exception 
MsgBox (ex.Message) 

Ed TEY 


جرب البرنامج وتأكد من أن جميع عمليات الحذف والتعديل والإضافة تعمل 


انتقل إلى محرر النماذج وأضف ×080ط C٥٠‏ لشريط الأدوات في أعلى النموذج الذي سنقوم بملئه بأسماء الدول المتوفرة حتى نستطيع 
اختيار الزبائن الموجودين في دولة معينة انتقل الآن لمحرر الكود واستبدل كامل محتويات الحدث 4 هه٥]‏ للنموذج بالكود التالي الذي سيقوم 
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بملئ صندوق القائمة بأسماء الدول لاحظ استخدام اء" آاءا في عبارة الاستعلام كي لا يجلب لنا نتائج مكررة عندما تكون هناك نتائج 
متشابهة معادة من قاعدة البيانات 


Dim CüsCoüntfry = Ftom co In Db.Customers _ 
Whete co. COUnNtry <> SEFING.EMBEY _ 
OEQdeE BY CO.COUNtEEY 
Select CO. COURNEEY DLSEINGE 


Me.ToolStripComboBox1.Items.Clear () 


FOE Each CO. IM CüUSCOUNETEY 
Me.ToolStripComboBox1. Items. Add (co) 


Next 
وأدخل فيه كود الاستعلام التالي لكي يتم إظهار‎ اه0اstrip‎ comboB0x1 أنشئ إجراء معالجة لحدث إعgعCha٤ectedlındexاse ل‎ 
الزن الموجودة فى درلة مه عت اخقارها سن ضوف افا الر كا‎ 


Dim CustQuery = From co In Db.Customers 


Where co.Country = Me .ToolStripComboBox1.SelectedItem.ToString 
Select co 


Me.CustomerBindingSource.DataSource = CustQuery 


وللحصول على مجموع أجور الشحن لطلبات الزبون المحدد أضف صندوق نصوص أسفل النموذج ثم أنشئ إجراء لمعالجة حدث 
CurrentChanged‏ الخاص ڊ CustomerBindingSource‏ وأدخل فيه الکود التالي 


Dim ro = CType (Me.CustomerBindingSource.Current, Customer) 


BIM EFEI1Suüm = AgGEEGAES O£Ad In DB.OEdersS 
Where ord.CustomerIlD = ro.CustomerlD _ 
Into Sum (ord.Freight) 


Me.TextBox1.Text = FriSum.ToString 


حيث حصالنا أو لا على معلومات السجل الحالي في CustomerBindingSource‏ وهنا اضطررنا لاستخدام مم رآ0 لتحويل ناتج الخاصية 
Current‏ إلى النوع المطلوب بما أنها تعيد قيمة من النوع ءعزط0 وبما أننا لم نحدد نوع المتغير هم عند التصريح عنه فستقوم بذلك نيابة 
عنا ميزة الاستدلال المحلي على النوع ثم استخدمنا استعلام ٥ا2 agg reg‏ لحساب مجموع أجور شحن الطلبات الخاصة بالزبون الحالي 


أضف زرا وصندوق نصوص إلى النموذج حتى نستطيع إظهار طلبات الزبون المحدد بعد تاريخ معين ولكي لانفقد الارتباط بين شبكتي 
البيانات انتقل إلى إجراء معالجة الحدث إعع Current ٤C2‏ الخاص ب Customer Bindinع؟Sou ce‏ وأدخل فيه الكود التالي قبل الكود 
الموجود فيه کي نعید ضبط القيم الصحيحة ن OrdersBindingSource‏ بما أننا سنغيرها لاحقا عندما سننفذ استعلامنا 


Me.OrdersBindingSource.DataSource = CustomerBindingSource 
Me.OrdersBindingSource.DataMember = "Orders" 
Me.TextBox2.Text = String. Empty 


أنشئ إجراء لمعالجة حدث النقر على الزر الذي أضفناه للنموذج وأدخل فيه الكود التالي 


Dim ro = CType (Me.CustomerBindingSource.Current, Customer) 


If IsDate (Me.TextBox2.Text) Then 
Dim SpOrd = From ord In Db.Orders _ 


Where ord.CustomerID = ro.CustomerIlD _ 
And ord.OrderDate >= CDate (Me.TextBox2. Text) 
Select ord 
Me.OrdersBindingSource.DataSource = SpOrd 
Else 
Me.OrdersBindingSource.DataSource = CustomerBindingSource 
Me.OrdersBindingSource.DataMember = "Orders" 
Me.TextBox2.Text = String. Empty 
ERA TE 
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حيث حصالنا في البداية على معلومات السجل الحالي بالنسبة ل ١٣٥ص‏ ٥اوںع‏ في المتغير هع ثم استخدمنا عبارة ۴| و الدالة K0‏ للتحقق 
من أن المستخدم قد قام بإدخال تاريخ صحيح قبل المتابعة بالاستعلام وإِن لم یکن تاریخا صحیحا نعيد ضبط قيp OrdersBindingSource‏ 
إلى القيم الأصلية ونقوم بتفريغ النص الموجود في صندوق النصوص وإن كان قد ادخل تاريخا صحيحا ننشئ استعلام يقوم بجلب الطلبات 
التي تاريخها بعد التاريخ الموجود في صندوق النصوص والخاصة بالزبون الحالي كما هو ظاهر في قسم ه١۲٠۷‏ في الاستعلام ثم نقوم 
بضبط الخاصية rdersBinding Source 1 Data S0 ure‏ إلى استعلامنا كي يتم عرض البيانات المعادة من الاستعلام في شبكة البيانات 
الثانية 
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مثال سريع عن كيفية إنشاء فنات ۲٠١ SQ1‏ 11,4 يدويا 


رأينا في الدروس السابقة کیف أن ال ۲٥ہ‏ عiیمD‏ 0/۸ یقوم بإنشاء فئات ا5۵ ۲٣٣‏ ۹٣ا‏ أو كما تدعى أيضا ءعءءھا٤‏ ا۴ بسهولة من 
أجلنا ومع ذلك يمكننا القيام بذلك يدويا وسأقوم في هذا الدرس باستعراض سريع لكيفية عمل ذلك من أجل العلم بالشئ 


أنشئ مشرو عا جديدا LinqConsoleApp 4awg Console Application عوill j‏ 
٠‏ من قائمة ct‏ عزہ٣۴‏ اختر Add Reference‏ ومن صفحۂ .٤ہ‏ اختر ¶٣1ا1.ھ0at. System‏ ثم اضغط Ok)‏ 
٠‏ في بداية الملف في أعلى محرر الكود أضف الاستيرادات التالية 
Imports System.Data. Ling‏ 
Imports System.Data.Linqg.Mapping‏ 


سنضيف الآن ءءها٣‏ رامع والذي عن عبارة عن فئة منظمة وفق جدول قاعدة بيانات ولإنشاء هذه الفئة نضيف الصفة ماطه] قبل تعريف 
الفئة والت تمتلك الخاصية ١٠‏ التي تحدد اسم الجدول في قاعدة البيانات ثم سيكون علينا إضافة الخصائص المناسبة لتمثل أعمدة الجدول 
ویتم تحديد الربط مع الأعمدة في قاعدة البيانات باستخدام الصفة ٣‏ ںuامC‏ والتي تمتلك عدة خصائص لتعريف العمود متل IsPrimaryKey‏ 
التي تمتلك قيمة منطقية تحدد فيما إذا كان العمود مفتاح أساسي أم لا والخاصية معه۲ه) التي تحدد اسم الحقل الخاص الذي سيخزن قيمة 
الخاصية - أضف الفئة التالية بعد تعريف ال عماںله" وقبل ”اج“ طك والتي ستمثل الجدول ء٣عص‏ هاون في قاعدة البيانات طبعا 
عرفت بعض الخصائص من أجل بعض الحقول الموجودة في الجدول هنا وليس جميع الحقول وذلك من اجل الاختصار هنا وإن قررت 
استخدام هذه الطريقة عمليا عليك تعريف الفئة بحيث تكون مطابقة تماما للجدول الذي تمثله 


<TablLé: (Name :="Customers™)> | 
PUBLIC Class CüUsEOoMEFE 


Private CustomerID As String 


<Column (IsPrimaryKey:=True, SEOEAGeE:=™ CUS EOMEEID™)™S - 
Public Property CustomerID() As String 
GEL 


REEUERn Mes CUSTOMEeEID 
End Get 
Set (ByVal value As String) 
Me. CustomerlD = value 
ERQ Sêl 
End: BEOpEFEY 


PELE  CIEY AS SEEING 


<ColumRA (SEOEaGge:=™ CEY) > 
PUDLIG EFEOBEECY CIEY() AS SEEING 
Gê 


RetUEFA Me. CiËy 
End Get 
Set (ByVal value As String) 
Me. City = value 
End Set 
End Property 


PEiIvate ContactName As SErEInG 


<Column (Storage:=" ContactName")> _ 
Public Property ContactName () As String 
Bek 
Retüurn Me. ContactName 
ERG E@E 


Set (ByVal value As String) 
Me. ContactName = value 
ERQ. Sel 

End Property 


ERQ. CLES 


53 


سنحتاج إلى إنشاء اتصال مع قاعدة البيانات W١‏ ۲۲۸ه" التي سنستخدمها لذا سنحتاج إلى تعريف غرض ×٥۲١0٤هه0‏ والذي يعتبر 
القناة الرئيسية لقراءة البيانات وتخزينها في قاعدة البيانات - أدخل سطر الكود التالي في الإجراء ج طك وذلك باعتبار أن قاعدة 
البيانات موجودة في الملف 75۴ N 0R" ٧1W N0.‏ الموجود في المجلد ۴ ]:0 لدي عند تجربة هذا المتال 


Dim db As New DataContext ("D: \TEMP\NORTHWND.MDF") 


ثم سنقوم بإنشاء کائن ٥۲(‏ ۳٥ں‏ ۴٥)عاطه۲‏ كي نستخدمه في الاستعلام من الجدول "٥ون‏ أدخل الكود التالي مباشرة بعد الكود 


السابق 
Dim Customers As Table (Of Customer) =‏ 
db.GetTable (Of Customer) ()‏ 


أضف السطر التالي من الكود الذي سيطبع على نافذة الكونسول أوامر اك التي سيتم تنفيذها على قاعدة البيانات 
db.Log = Console.Out‏ 
سنكتب الآن استعلام "1 ليستعلم أي من الزبائن موجودين في لندن - أدخل كود الاستعلام التالي بعد الكود السابق مباشرة 
Dim custQuery = From cust In Customers‏ 


Where cust.City = "London" 
Select cCüs 


وللحصول على نتائج الاستعلام سنستخدم حلقة عع ۴٠۲‏ للدوران عبر نتائج الاستعلام كما رأينا في الدروس السابقة ثم طباعتها على نافذة 
الكونسول 


Console.WriteLine ("Number Of Records: " & custQuery.Count.ToString) 


For Each CustObj In custQuery 
Console.WriteLine (CustOb].CustomerID.ToString & ", " & 


CUSEOD J CECE GE Tg TE CustOobj .ContactName) 
Next 


Console.ReadLine () 


وهذا هو الكود الكامل للمشروع 
Imports System.Data. Ling‏ 
Imports System.Data.Linqg.Mapping‏ 


Module Module1l 


<Table (Name:="Customers")> _ 
FUHLIE CIES CUSTOMS 


Private CustomerID As String 


<Column (IsPrimaryKey:=True, SEOEage:=™ CUStOoOMEEFID™)> | 
PUBLIC PEOpertyY CüstOomMEeEID(Y A StEEILRG 
GEE 


RetüUrn Me. CustomerID 
ERG ‘GeE 
Set (ByVal value As String) 
Me. CustomerlD = value 
End Set 
End Property 


PELINE  CGCIEyY A8 SEEING 
<Column (Storage:=" City")> _ 
PULLS EFOopEEEY CIEY() AS SEEING 
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<Column (Storage:=" ContactName")> _| 
Public Property ContactName () As String 


Gê 
REEUEN ME: CIEY 
End Get 
Set (ByVal value As String) 
Me. City = value 
End Set 
End Property 


PEIVaEê _ContacltNamêë: AS StEEIRG 


Get 

RetüÛEn Me. ContactName 
ENG Get 
Set (ByVal value As String) 
Me. ContactName = value 
e Ss 
End Property 


End Class 


Sub Main () 


Dim db As New DataContext ("D: \TEMP\NORTHWND.MDF") 


Dim Customers As Table (Of Customer) = 
db.GetTable (Of Customer) () 


db.Log = Console.Out 


Dim custQuery = From cust In Customers 


Where cust.City = "London" 
Select cust 
Console.WriteLine ("Number Of Records: " & custQuery.Count.ToString) 
For Each CustOb] In custQuery 
Console.WriteLine (CustOb] .CustomerID.ToString &4 ", "& 
CustObj.City & ", " & CustOb].ContactName) 
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Next 


Console.ReadLine () 


ERQ: Sub 


nd Module 


3 
ا 


أمثلة على استعلامات 1i4‏ 


في هذا الدرس سأورد بعض الأمثلة على استعلامات مختلفة كي نتعرف أكثر على أسلوب كتابة هذه الاستعلامات ولن أتطرق إلى طرق 


استخدام هذه الاستعلامات بما أننا رأينا كيف يمكن عمل ذلك من خلال الأمثلة الواردة في الدروس السابقة إما بالدوران باستخدام حلقة.. 


عع أو بالإسناد المباشر لمتغير أو تحكم أو الإظهار في سع۷iل|‏ 26ا02 
فال بط کل اكام االات اتج في الاق الحضرل ع اة اي لل ب ي حل برعا ق 


Wod = Aggregate Wdt In ads.WorkingDate _ 
Into Mdt = Max (Wdt.WorkingDate) 


مثال آخر على استخدام الدالات التجميعية للحصول على مجموع ناتج عملية طرح حقلين 


TempBal = Aggregate AccBa In AccMov _ 
Into Bal = Sum (AccBa.DebitAmmount - AccBa.CreditAmmount ) 


مثال بسيط آخر يستخدم 1)٠‏ في قسم "٠١٥‏ في الاستعلام للحصول على مجموعة نتائج محددة 


AccMov = From AccBal In Accds.AccountMovements _ 
Where AccBal.AccountNumber Like (AccNum & "*") 
Select AccBal 


مثال يستخدم الدالة مس هاه في قسم ۷٠١١‏ للحصول على نتائج الاستعلام بحيث لا يتأئر شرط التصفية بحالة الأحرف 


Qts = From cu In Db.Customers _| 
Wieré Cü.COUnEEYy .TOSTELNG.TOLOWEeEE LIkê "po0*".ToLower |_| 
Select cu 


مثال بسیط آخر يستخدم 8۷ 0۲٥۲‏ لترتيب النتائج تصاعديا 


ParentLlList = From ParLlLst In AccountsDataSet.Accounts _ 
WAGES PAFLSE .LSCROLIIAEEOURTE = FALSE 
Order By ParLst.AccountNumber _ 
Sele PaF LSE 


ومن أجل الترتيب تنازليا يصبح الاستعلام كما يلي وذلك بإضافة عمال عءءه0 بعد حقل الفرز في قسم 8y‏ م0 


ParentLlList = From ParlLst In AccountsDataSet.Accounts _ 
WEEE PAFLSTELSCRLIIAEEOURE. = FALSE | 
Urder By Parlst.AccoüntNüumber Descending _ 
SELE  PaEFESE 


For . 


Di 


Dim 


BIM 


HIM 


Dim 


Di 


هذا المثال يقوم بإعادة تاريخ محتسب من تاريخ وفترة زمنية مخزنين في قاعدة بيانات مع استخدام ١هل‏ لربط جدولين للحصول على القيم 


منهما 


Edat = From de In DsDesposits.Deposits _ 
Join Dp In DsDesposits.InterestRates _| 
On de.InterestID Equals Dp.InterestID _ 
Select EndDate = DateAdd (Datelnterval.Month, _ 
intrst.First, DepDet.First.StartDate) 


56 


Bim 


مثال آخر عن استعلام یستخدم مەل لربط جدولين من أجل الاستعلام منهما ثم اختيار حقول محددة كنتيجة للاستعلام ثم استخدام الاستعلام 
داخل استعلام آخر من أجل الحصول على نتيجة إضافية ثم استخدام ١هل‏ للاستعلام من نتيجة ربط استعلام وجدول للحصول على النتائج 


المرغوبة 


Dim MovNam = From Acc In SampleDatabaseDataSet. ACCOUNTS 


Join Mov In SampleDatabaseDataSet. ACCOUNTS_MOVEMENTS _ 


On Acc.ACC_ NUMBER Equals Mov.ACC NUMBER 


Select Mov .MOVMENT DATE, Mov.ACC NUMBER, Acc.ACC NAME, 
Mov. DEBIT _ AMOUNT, Mov.CREDIT_ AMOUNT 


Dim AccBal = From AcBa In MovNam 
Group By acc_number = AcBa.ACC_ NUMBER _ 
Into Balance = Sum (AcBa. DEBIT _ AMOUNT - AcBa.CREDIT_ AMOUNT) 


From ab In AccBal Join ac In SampleDatabaseDataSet. ACCOUNTS _ 
On ab.acc_number Equals ac.ACC_NUMBER _ 
Select ab.acc_number, ac.ACC NAME, ab.Balance 


هذا المثال يستخدم هل لإنشاء استعلام يعطينا النتائج نتيجة الاستعلام من أربعة جداول مختلفة 


From Cu In DsDesposits.Customers 

Join Dp In DsDesposits.Deposits On Dp.CustomerID Equals Cu.CustomerID 
Join DepPer In DsDesposits.InterestRates On DepPer.InterestID Equals Dp.InterestID 
Join CaDp In DsDesposits.CalculatedDepsits On CaDp.DepositID Equals Dp.DepositID _ 


Dim AccBalName 


Dim ViewData = 


Where CaDp.CalculationReason = 2 _ 
And CaDp.CalculationDate >= FromDate _ 
And CaDp.CalculationDate <= ToDate 


Select Cu.Name, Dp.DepositNumber, Dp.DepositAmount, Dp.StartDate, 
CaDp.CalculationDate, DepPer.DepositPreiod 


هذا المثال فيه نقطتين الأولى بخصوص in‏ المستخدمة في استعلامات اء للحصول على نتيجة من قائمة قيم فهي غير موجودة هنا لذا نقوم 
بوضع القيم في مصفوفة تم نستخدم ئ5 اهمه في الاستعلام للحصول على نفس النتيجة والثانية هي أننا نستطيع استخدام نتيجة استعلام 


کدخل لاستعلام آخر 


Byte = {0, 3, 4, Nothing, 6} 

From De In DsDesposits.Deposits _ 
Where De. DepoSLEID = DE. DepOoOSLEILD. 
And Vlu.Contains (De.DepositStatus) 


From Irs In DsDesposits.InterestRates _| 
Where. IES. INEEEESTID = DepDEE. FIFSE.TAEEEESEILD., 
Select Irs.DepositPreiod, Irs.InterestRate 


مثال آخر يستخدم "امل وطريقة المصفوفة معا 


Dim Vlu() As 
Dim DepDet = 


Dim Intrst = 


Dim Vlu() As Byte = {0, Nothing, 3, 4, 6} 


mDep = From d In DsDesposits. Deposits 


Join i In DsDesposits.InterestRates On d.InterestID Equals i.InterestID _ 
Where DateAdd (DatelInterval.Month, i.DepositPreiod, d.StartDate) <= Now.Date _ 
And Vlu.Contains (d.DepositStatus) 

Select d.DepositID 


هذا المثال يستخدم استعلامين متداخلين ففي قسم ء٠‏ |امء في نهاية الاستعلام الأول استخدمنا الطريقة امهء×ع لاستثناء النتائج المعادة من 


الاستعلام الثاني الممرر کمحدد للطريقة Except‏ 


Deps = (From d In DsDesposits.Deposits 


Join i In DsDesposits.InterestRates 

On i.InterestID Equals d.InterestID 

Where (d.StartDate <= New Date (Ryear, 12, 31) 
And vlu.Contains (d.DepositStatus) ) 


And DateAdd (DateInterval.Month, i.DepositPreiod, d.StartDate) >= New Date (Ryear, 12, 31) 


Sêlect d.DepositID).. Except) _ 
From ca In DsDesposits.CalculatedDepsits _ 
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Where ca.EndDate = New Date (Ryear, 12, 31) 
Select ca.DepositID) 
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Compiled Queries ûمجرتمئأا الاستعلامات‎ 


عندما یکون لدينا تطبيق يستخدم استعلامات متشابهة العديد من المرات يمكنك زيادة الأداء عبر ترجمة ماأمصه0) الاستعلام مرة واحدة ثم 
تنفيذه العديد من المرات لاحقا عبر تمرير محددات مختلفة في كل مرة فقد يكون لديك تطبيق يقوم بالاستعلام عن جميع الزبائن الموجودين 
في مدينة محددة بحيث يتم تمرير اسم المدينة في وقت التنفيذ من قبل المستخدم وهنا تدعم اوك ه† 1٠۹‏ استخدام الاستعلامات المترجمة لهذا 
الغرض 
حيث توفر لنا الفريموورك الفئة CompiledQuery‏ التي تزودنا بإمكانية الترجمة والتخزين المؤقت للاستعلامات من اجل الاستخدام وهذه 
الفئة متواجدة في مجال الأسماء و 11.ة†ة0."اءرك وهي تمتلك خاصية وحيدة هي ١0اووه۲م×ع‏ التي تعيد الاستعلام كتعبير لمدا 
Lambda Expression‏ وهي تمتلك بعض الطرق ولكن الطريقة الأهم والتي يتم استخدامها هنا هي الطريقة Compile‏ التي تمتلك عدة 
أشكال محملة متشابهة 

Public Shared Function Compile (Of TArgO0 As DataContext, TArgl, TResult) ( _ 


query As Expression (Of Func (Of TArgO0, TArgl, TResult)) _ 
) As Func (Of TArgO0, TArg1l, TResult) 


Public Shared Function Compile (Of TArgO0 As DataContext, TArgl, TArg2, TResult) ( _ 
query As Expression (Of Func (Of TArgO0, TArgl, TArg2, TResült)) _ 
) As Func (Of TArgO0, TArg1l, TArg2, TResult) 


Public Shared Function Compile (Of TArgO0 As DataContext, TArgl, TArg2, TArg3, TResult) ( _ 
query AS Expression (Of Func (Of TAEGOy, TAEGIl; TAEG2; TAEG3, TReSULEY _ 
) As Func (Of TArgO0, TArgl, TArg2, TArg3, TResult) 


Public Shared Function Compile (Of TArgO0 As DataContext, TResult) ( _ 
query AS: ExpEesstion (O£ FUnCE(OE TAFGO;, TResultjy _ 
) As Func (Of TArgO0, TResult) 


حيث تمتل المحددات Arg‏ نوع المحدد الممرر للمفوض Delegate‏ عندما يتم تنفيذ المفوض المعاد من الطريقة Compile‏ و المحدد 
tاResu"‏ هو من النوع (۲)عاطاج۲ م uمع|‏ المعاد عند تنفيذ المفوض المعاد من الطريقة عام ٤)٥۳‏ 


في العديد من الحالات ربما ترغب في إعادة استخدام الاستعلامات خارج مجال مسار التنفيذ الحالي ففي هذه الحالات تكون عملية تخزين 
الاستعلامات المترجمة في متغيرات ساكنة ءعاطها٣‏ ة۷ عtiهSt‏ فكرة فعالة ففي الكود التالي توجد لدينا فة ءع Que‏ مصممة من أجل 
تخزين الاستعلامات المترجمة تستخدم للاستعلام من قاعدة بیانات N٥۲۲۸ Wd‏ بطریقة اہ؟ t٥‏ ۹٣ا‏ 


Class Queries 


PUBLLY SHAEEM CUSEOMEFSBYCITY AS 
Func (Of NorthWindDataContext, String, IQueryable (Of Customer)) = 
CompiledQuery. Compile (Function (db As NorthWindDataContext, 
CIEY A SEEINO) 
From c In db.Customers Where c.City = city Select <c) 


PURLLS. ShaFEEQd CustomersById AS _ 
Func (Of NorthWindDataContext, String, IQueryable (Of Customer)) = 
CompiledQuery. Compile (Function (db As NorthWindDataContext, 
1A8 SEER) _ 
db.Customers.Where (Function (c) c.CustomerlD = id)) 


ENQA CLASS 


Public Function GetCustomersByCity (ByVal city As String) As 
IEnumerable (Of Customer) 
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Return Queries.CustomersByCity (db, city) 
End Fünction 


ثم استخدام هذه الوظيفة لعرض نتائج الاستعلام في W‏ ءا۲۵۷ 6ه( كما يلي 
Me.DataGridView1.DataSource = GetCustomersByCity ("London") .TolList‏ 
أو حتى الاستخدام المباشر للاستعلام المترجم بحيث نظهر نتيجة الاستعلام مباشرة في wع۷iل|‏ 0226 


Me.DataGridView1.DataSource = Queries.CustomersByCity (db, "London").TolList 
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